急求帮助!大家帮忙看看我的程序错在哪了,ADO SQL Server的,库应该连上了,查巡报424错!

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub upCombo_Click()If up.Text <> "" Then
up.Text = up.Text + ";" + upCombo.Text
End IfIf up.Text = "" Then
up.Text = upCombo.Text
End IfEnd SubPrivate Sub Command1_Click()
sql = "select * from test2 where"
If callnum.Text <> "" And callnumb.Text = "" Then
sql = sql & " 主叫号码=" & callnum.Text
sqlold = 1
End IfIf callnum.Text <> "" And callnumb.Text <> "" Then
sql = sql & " 主叫号码>=" & callnum.Text & " and  主叫号码<=" & callnumb.Text
sqlold = 1
End IfIf callto.Text <> "" And calltob.Text = "" Then
If sqlold = 1 Then sql = sql & " and"
sql = sql & " 被叫号码 like '" & callto.Text & "'"
sqlold = 1
End If
If callto.Text <> "" And calltob.Text <> "" Then
If sqlold = 1 Then sql = sql & " and"
sql = sql & " 被叫号码>=" & callto.Text & " and  被叫号码<=" & calltob.Text
sqlold = 1
End IfIf sqlold = 1 Then sql = sql & " and"
sql = sql & " 呼叫开始时间>='" & DTPicker1.Value & " " & DTPicker2.Value & "' and 呼叫开始时间<='" & DTPicker3.Value & " " & DTPicker4.Value & "'"Text8.Text = sqlrsTable.Open sql, pubConn, adOpenDynamic, adLockOptimistic
    
Set MSFlexGrid1.DataSource = rsTableEnd Sub
Private Sub Form_Load()    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password=1234;Data Source=127.0.0.1;Initial Catalog = tttt"
    pubConn.Open strConnDTPicker1.Value = Date
DTPicker3.Value = DateupCombo.AddItem ("222.222.222.222")
upCombo.AddItem ("61.222.222.222")
DownCombo.AddItem ("222.222.222.222")
DownCombo.AddItem ("61.222.222.222")
End Sub
Private Sub Text1_Change()End SubPrivate Sub Text2_LostFocus()
If callnumb.Text < callnum.Text Then
callnumb.Text = ""
End If
End Sub