VB6 使用 MySQL

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "DRIVER=MySQL ODBC 3.51 DRIVER;SERVER=" & IP & ";DATABASE=" & DB_Name & ";USER=" & UserName & ";password=" & Passwd & ";OPTION=3;"

rs.ActiveConnection = cn
rs.Source = "SELECT * FROM Table_X;"
rs.Open

Do While (Not rs.EOF)
.....
rs.MoveNext
Loop
rs.Close
cn.Close