Public Sub SQLExt(ByVal SQLStmt As String)
Dim cnd As New ADODB.Command
DBConnect '打开连接
Set cmd.ActiveConnection = cnn
cmd.CommandText = SQLStmt
cmd.Execute
Set cmd = Nothing
DBDisconnect '关闭连接
End Sub


求助各位高手,这个函数是执行SQL语句的,但是在执行Set cmd.ActiveConnection = cnn出现错误