在VB中可以使用ADO（ActiveX Data Objects）来连接数据库并修改数据。以下是一个简单的示例代码：

Dim conn As ObjectDim rs As ObjectSet conn = CreateObject("ADODB.Connection")conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"conn.OpenSet rs = CreateObject("ADODB.Recordset")rs.Open "SELECT * FROM YourTable WHERE ID = 1", conn, 3, 3If Not rs.EOF Thenrs.Fields("ColumnName1").Value = "NewValue1"rs.Fields("ColumnName2").Value = "NewValue2"rs.UpdateEnd Ifrs.Closeconn.CloseSet rs = NothingSet conn = Nothing

在这个示例中，首先创建一个连接对象conn，并打开连接到数据库。然后创建一个记录集对象rs，并打开一个查询来获取需要修改的数据行。接着在记录集中修改数据，并调用Update方法来保存修改。最后关闭记录集和连接，并释放对象。

需要根据具体的数据库类型和结构来修改连接字符串和SQL语句，以确保正确连接到数据库并修改数据。