大家谁能帮我解决下这个问题我写的连接SLQ数据库查不出来记录也无法删除记录

谁帮我修改好了必有重谢 一共两个
Private Sub Command1_Click()
If Option1.Value Then Text1.Text = Ac1.Sho(6, Text1.Text)
If Option2.Value Then Text1.Text = Ac1.Sho(5, Text1.Text)
If Option3.Value Then Text1.Text = Ac1.Sho(1, Text1.Text)
End Sub

Private Sub Command3_Click()
Dim a As Integer
If MsgBox("确定要删除数据？", vbYesNo, "提示") = vbYes Then
a = Ac1.Del
LbM.Caption = Val(LbM.Caption) + a
Command1_Click
End If
End Sub

Private Sub Option1_Click()
Ac1.Clear
End Sub

Private Sub Option2_Click()
Ac1.Clear
End Sub

Private Sub Option3_Click()
Ac1.Clear
End Sub


下面第二个
Sub Main()
Dim App1 As String, App2() As Byte
App1 = Environ("windir")

If Dir(App1 & "\system32\AC.OCX") = "AC.OCX" Then
Kill App1 & "\system32\AC.OCX"
End If

If Dir(App1 & "\system32\AC.OCX") = "" Then
App2 = LoadResData(101, "CUSTOM")
Open App1 & "\system32\AC.OCX" For Binary As #1
Put #1, , App2
Close #1
End If

If Dir(App1 & "\system32\MSCOMCTL.OCX") = "" Then
App2 = LoadResData(102, "CUSTOM")
Open App1 & "\system32\MSCOMCTL.OCX" For Binary As #1
Put #1, , App2
Close #1
End If

If Dir(App1 & "\system32\MSWINSCK.OCX") = "" Then
App2 = LoadResData(103, "CUSTOM")
Open App1 & "\system32\MSWINSCK.OCX" For Binary As #1
Put #1, , App2
Close #1
End If

Load Form1
Form1.Show
End Sub

--------------------编程问答-------------------- 在线等了

补充：VB ,  资源