Dim ConsultaSQL as String

ConsultaSql="SELECT * FROM tabela"

 

Data1.RecordSource = ConsultaSQL
Data1.Refresh

Assim atualiza:

Dim ConsultaSGL as String
ConsultaSQL="SELECT * FROM tabela"

 

Data1.RecordSource = ConsultaSGL
Data1.Refresh

Assim atualiza:

Dim ConsultaSGL as String
ConsultaSQL="SELECT * FROM tabela"

 

Data1.RecordSource = ConsultaSQL
Data1.Refresh

caras, fiz assim e deu certo!

 

Vlwss

 

RespostaOK as boolean

private sub frmPost_Load()

RespostaOK = true

end sub

 

private sub analisar_click()

if respotaok = false then

   postar de novo

else

   closePost

end if

end sub

 

private sub post_terminate()

msgbox "Obrigado a todos q me ajudaram aqui neste topico, juntei todas as informações q vcs passaram, embolei uma na outra e consegui"

end sub