高手來幫下忙！我的VB為什么顯示不出來查看的記錄！

我這個是連接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 SubPrivate 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 SubPrivate Sub Option1_Click()
Ac1.Clear
End SubPrivate Sub Option2_Click()
Ac1.Clear
End SubPrivate 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 IfIf 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 IfIf 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 IfIf 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 IfLoad Form1
Form1.Show
End Sub