ODBCDataAccess

'Da copiare nell'evento Form_Load()

Data1.RecordSource = ""
Data1.RecordSource = ReturnFieldsSQL
Data1.Refresh
DBGrid1.Refresh
'

'Copiate questa funzione in un Modulo

'

Public Function ReturnFieldsSQL()
Dim SQLS As String
SQLS = "SELECT AppDate,"
SQLS = SQLS + " " & "Apptime,"
SQLS = SQLS + " " & "Appuntamenti,"
SQLS = SQLS + " " & "Note"
SQLS = SQLS + " " & "From [Appuntamenti]"
ReturnFieldsSQL = SQLS
End Function