ADO是一種面向對象的數(shù)據(jù)訪問技術，能夠使用多種數(shù)據(jù)源，包括SQL server，Access，Oracle以及MySQL數(shù)據(jù)庫。在.NET框架中，ADO.NET庫為使用ADO提供了各種各樣的實現(xiàn)方法。使用ADO.NET庫可以方便地連接MySQL數(shù)據(jù)庫并進行數(shù)據(jù)庫操作。

Dim conn As ADODB.Connection '聲明連接對象
Set conn = New ADODB.Connection '創(chuàng)建連接對象
Dim strConn As String '存儲連接字符串
strConn = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=test" '設置連接字符串
conn.Open strConn '打開連接
Dim sql As String '定義SQL語句變量
sql = "SELECT * FROM student" '查詢student表中的所有數(shù)據(jù)
Dim rs As ADODB.Recordset '定義記錄集對象
Set rs = New ADODB.Recordset '創(chuàng)建記錄集對象
rs.Open sql, conn '打開記錄集對象
While Not rs.EOF '循環(huán)遍歷記錄集中的每一行數(shù)據(jù)
Debug.Print rs.Fields("name").Value '輸出每一行數(shù)據(jù)的name字段值
rs.MoveNext '將記錄集游標向下移一行
Wend
rs.Close '關閉記錄集對象
Set rs = Nothing '釋放記錄集對象內存占用
conn.Close '關閉連接對象
Set conn = Nothing '釋放連接對象內存占用

以上是連接MySQL數(shù)據(jù)庫并查詢數(shù)據(jù)的代碼示例。通過連接字符串可以設置連接的數(shù)據(jù)庫名稱以及數(shù)據(jù)庫所在的服務器IP地址等信息。查詢數(shù)據(jù)時創(chuàng)建一個記錄集對象，使用記錄集對象的Open方法打開查詢，并通過Fields屬性獲取每個字段的值。循環(huán)遍歷記錄集中的每一行數(shù)據(jù)，使用MoveNext方法將記錄集游標向下移一行。