在VB中可以使用ADO（ActiveX Data Objects）来连接数据库并修改数据。以下是一个简单的示例代码：
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
在这个示例中，首先创建一个连接对象conn，并打开连接到数据库。然后创建一个记录集对象rs，并打开一个查询来获取需要修改的数据行。接着在记录集中修改数据，并调用Update方法来保存修改。最后关闭记录集和连接，并释放对象。
需要根据具体的数据库类型和结构来修改连接字符串和SQL语句，以确保正确连接到数据库并修改数据。
