在VB中可以使用ADO（ActiveX Data Objects）來連接數(shù)據(jù)庫并修改數(shù)據(jù)。以下是一個簡單的示例代碼：
Dim conn As Object
Dim rs As Object
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
conn.Open
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM YourTable WHERE ID = 1", conn, 3, 3
If Not rs.EOF Then
rs.Fields("ColumnName1").Value = "NewValue1"
rs.Fields("ColumnName2").Value = "NewValue2"
rs.Update
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
在這個示例中，首先創(chuàng)建一個連接對象conn，并打開連接到數(shù)據(jù)庫。然后創(chuàng)建一個記錄集對象rs，并打開一個查詢來獲取需要修改的數(shù)據(jù)行。接著在記錄集中修改數(shù)據(jù)，并調用Update方法來保存修改。最后關閉記錄集和連接，并釋放對象。
需要根據(jù)具體的數(shù)據(jù)庫類型和結構來修改連接字符串和SQL語句，以確保正確連接到數(shù)據(jù)庫并修改數(shù)據(jù)。
