Dim cnn As New ADODB.Connection
Dim cmd1 As New ADODB.Command
Public dburl As String '定义一个全局变量
Public Function cmd(ByVal cmdtext As String) '数据库操作
dburl = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=客房管理数据库.mdb;Persist Security Info=False" '用ADO创建一个 然后把连接字符串覆盖他就可以了
cnn.ConnectionString = dburl
cnn.Open
If cnn.State = adStateOpen Then
Set cmd1.ActiveConnection = cnn
cmd1.CommandText = cmdtext
cmd1.Execute
Else
MsgBox "数据库连接失败!"
End If
cnn.Close
End Function
