Dim cnn As ADODB.Connection
Dim adr As ADODB.Recordset
Dim cmd As ADODB.Command

Set cnn = New ADODB.Connection
Set adr = New ADODB.Recordset
Set cmd = New ADODB.Command

Dim strConn As String
strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.21.98;PORT=3306;" & _
          "DATABASE=term; USER=root;PASSWORD=pass;OPTION=3;"
          
cnn.CursorLocation = adUseServer
cnn.ConnectionString = strConn
cnn.Open

adr.Open "select * from Na_Term", cnn
Set Me.DataGrid1.DataSource = adr

cnn.CursorLocation = adUseClient

Set Me.DataGrid1.DataSource = adr

Print adr.RecordCount