小吳 VBQA 程式設計討論

Private Sub saveqt()
On Error GoTo err
Select Case Combo2.Text
　　　　Case "基建"
　　　　 Set rs = New ADODB.Recordset
　　　　 rs.Open "b1jsxsxmb", con, adOpenKeyset, adLockOptimistic
　　　　While (rs.EOF = False)
　　　　If rs.Fields("j6xuhao") ＜＞ txtsh(0) Then
　　　　rs.AddNew
　　　　rs.Fields("j6xuhao").Value = txtsh(0).Text
　　　　rs.Fields("j6danwei").Value = txtdwmc(2).Text
　　　　rs.Fields("j6kemu").Value = txtkm(1).Text
　　　　rs.Fields("j6xignzhi").Value = Combo1.Text
　　　　rs.Fields("j6biaoji").Value = Combo3.Text
　　　　rs.Fields("j6niandu").Value = txtnd(5).Text
　　　　rs.Fields("j6pingfen").Value = txtxmbf(6).Text
　　　　rs.Fields("j6paixu").Value = txtxmpx(7).Text
　　　　rs.Fields("j6dwdm").Value = txtdwdm.Text
　　　　rs.Update
　　　　End If
　　　　Wend
　　　
　　　　rs.Close
　　　　Set rs = Nothing
　　
　　 Case "会议"
　　　　Set rs = New ADODB.Recordset
　　　　rs.Open "b1hyxmb", con, adOpenKeyset, adLockOptimistic
　　　　While (rs.EOF = False)
　　　　If rs.Fields("j6xuhao") ＜＞ txtsh(0) Then
　　　　rs.AddNew
　　　　rs.Fields("j6xuhao").Value = txtsh(0).Text
　　　　rs.Fields("j6danwei").Value = txtdwmc(2).Text
　　　　rs.Fields("j6kemu").Value = txtkm(1).Text
　　　　rs.Fields("j6xignzhi").Value = Combo1.Text
　　　　rs.Fields("j6biaoji").Value = Combo3.Text
　　　　rs.Fields("j6niandu").Value = txtnd(5).Text
　　　　rs.Fields("j6pingfen").Value = txtxmbf(6).Text
　　　　rs.Fields("j6paixu").Value = txtxmpx(7).Text
　　　　rs.Fields("j6dwdm").Value = txtdwdm.Text
　　　　rs.Update
　　　　End If
　　　　Wend
　　
　　　　rs.Close
　　　　Set rs = Nothing
　　　
　　Case "其他"
　　　　Set rs = New ADODB.Recordset
　　　　rs.Open "b1qtxmb", con, adOpenKeyset, adLockOptimistic
　　　　While (rs.EOF = False)
　　　　If rs.Fields("j6xuhao") ＜＞ txtsh(0) Then
　　　　rs.AddNew
　　　　rs.Fields("j6xuhao").Value = txtsh(0).Text
　　　　rs.Fields("j6danwei").Value = txtdwmc(2).Text
　　　　rs.Fields("j6kemu").Value = txtkm(1).Text
　　　　rs.Fields("j6mingcheng").Value = txtxmmc(4).Text
　　　　rs.Fields("j6xignzhi").Value = Combo1.Text
　　　　rs.Fields("j6biaoji").Value = Combo3.Text
　　　　rs.Fields("j6niandu").Value = txtnd(5).Text
　　　　rs.Fields("j6pingfen").Value = txtxmbf(6).Text
　　　　rs.Fields("j6paixu").Value = txtxmpx(7).Text
　　　　rs.Fields("j6dwdm").Value = txtdwdm.Text
　　　　rs.Update
　　End If
　　Wend
　　　
　　　　rs.Close
　　　　Set rs = Nothing
　
　　 Case "资金"
　　　　Set rs = New ADODB.Recordset
　　　　rs.Open "b1jjjcxmb", con, adOpenKeyset, adLockOptimistic
　　　　While (rs.EOF = False)
　　　　If rs.Fields("j6xuhao") ＜＞ txtsh(0) Then
　　　　rs.AddNew
　　　　rs.Fields("j6xuhao").Value = txtsh(0).Text
　　　　rs.Fields("j6danwei").Value = txtdwmc(2).Text
　　　　rs.Fields("j6kemu").Value = txtkm(1).Text
　　　　rs.Fields("j6mingcheng").Value = txtxmmc(4).Text
　　　　rs.Fields("j6xignzhi").Value = Combo1.Text
　　　　rs.Fields("j6biaoji").Value = Combo3.Text
　　　　rs.Fields("j6niandu").Value = txtnd(5).Text
　　　　rs.Fields("j6pingfen").Value = txtxmbf(6).Text
　　　　rs.Fields("j6paixu").Value = txtxmpx(7).Text
　　　　rs.Fields("j6dwdm").Value = txtdwdm.Text
　　　　rs.Update
　　　　End If
　　　　Wend
　　　
　　　　rs.Close
　　　　Set rs = Nothing
End Select
err:
MsgBox err.Description
End Sub
我用的是windows2000 server及vb6.0 、sql2000专业版的上面这段代码在别的工程中就可以执行，可是在本程序中执行不了，还它什么错误提示都没有。