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

Create un nuovo form con una DBGrid e un DataControl.
Settate la proprieta datasource della grid sul data control.
Settate la proprieta NomeDB sul datacontrol create una
connessione ODBC dal controlpanel e Settate la proprieta
Tipo DB su ODBC.