vb 写类模块的问题

来源：百度知道 编辑：UC知道 时间：2024/06/24 05:33:17
我想把Command1_Click按钮事件写入类模块里不知道怎么写
请高手教下!
Private Sub Command1_Click()
Dim strConn As String
Dim strSql As String
Dim conn As ADODB.Connection
Dim Ado As ADODB.Recordset

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
"obese.mdb" & ";Persist Security Info=False"
strSql = "SELECT * FROM newkai"
Set conn = New ADODB.Connection
conn.ConnectionString = strConn
conn.Open
Set Ado = New ADODB.Recordset
Set Ado.ActiveConnection = conn
Ado.LockType = adLockOptimistic
Ado.CursorType = adOpenKeyset
Ado.Open strSql

Ado.AddNew
Ado.Fields("Posts1") = Posts1.Text
Ado.Fields("Posts2") = Posts2.Text
Ado.Fields("Posts3") = Posts3.Text
Ado.Fields("Posts4") = Posts4.Tex

在模块中添加下面代码：
Private Sub gyangc()
Dim strConn As String
Dim strSql As String
Dim conn As ADODB.Connection
Dim Ado As ADODB.Recordset
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
"obese.mdb" & ";Persist Security Info=False"
strSql = "SELECT * FROM newkai"
Set conn = New ADODB.Connection
conn.ConnectionString = strConn
conn.Open
Set Ado = New ADODB.Recordset
Set Ado.ActiveConnection = conn
Ado.LockType = adLockOptimistic
Ado.CursorType = adOpenKeyset
Ado.Open strSql
Ado.AddNew
Ado.Fields("Posts1") = Posts1.Text
Ado.Fields("Posts2") = Posts2.Text
Ado.Fields("Posts3") = Posts3.Text
Ado.Fields("Posts4") = Posts4.Text
Ado.Fields("Posts5") = Pos