vb.net同时对两个ACCESS数据库进行增删改查。

见下面的代码，自己换成真实的数据库及表即可

Imports System.Data
Imports System.IO
Imports System.Data.OleDb
Module Module1
    Public cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库1.mdb") '定义连接1---这里请更改为实际数据库路径及名称 
    Public cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库2.mdb") '定义连接2---这里请更改为实际数据库路径及名称 
    Public DataBaseRST1 As Integer '用来返回数据库执行结果 
    Public DataBaseRST2 As Integer '用来返回数据库执行结果
    Public Function DataModify(ByVal str_cmd1 As String, ByVal str_cmd2 As String) As Boolean '进行数据库修改操作函数 
        Dim cmdinsert1 As New OleDbCommand
        Dim cmdinsert2 As New OleDbCommand
        Try
            cmdinsert1.CommandText = str_cmd1
            cmdinsert2.CommandText = str_cmd2
            cmdinsert1.Connection = cn1
            cmdinsert2.Connection = cn2
            If cn1.State = ConnectionState.Closed Then cn1.Open()
            If cn2.State = ConnectionState.Closed Then cn2.Open()
            DataBaseRST1 = cmdinsert1.ExecuteNonQuery() '用来返回执行的结果 
            DataBaseRST2 = cmdinsert2.ExecuteNonQuery() '用来返回执行的结果 
            cn1.Close()
            cn2.Close()
            Return True
        Catch ex As Exception
            MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return False
        End Try
    End Function
End Module 
Public Class Form1 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataModify("insert into aa values ('1','2')", "insert into aa values ('1','2')") '调用方法
    End Sub
End Class

会修改一个库的话, 修改两个库修改十个库都是一样的, 这要啥思路