ADODB "MySQL ODBC" DataGrid, RecordCount - VB

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

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

 strConn  
strConn =  & _

cnn.CursorLocation = adUseServer
cnn.ConnectionString = strConn
cnn.

adr. , cnn
 .DataGrid1.DataSource = adr