Hi muthu,
have u installed odbc driver 3.51. if not then pls download it from www.mysql.com and install it. Then create a DSN from control panel-> administrartive tools -> data sources (ODBC).
And then paste below code in ur project:
Dim sqlstr As String
Dim rs As ADODB.Recordset
Dim conn As ADODB.Connection
conn = New ADODB.Connection
rs = New ADODB.Recordset
conn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=urdatabasename;USER=ABC;PASSWORD=XYZ;OPTION=3;")
sqlstr = "select * from test_table"
rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rs.Open(sqlstr, conn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
MsgBox("success" & rs.RecordCount)