Question

vb对象refresh的方法iadodc失败

Dim kc_条件 As String
Dim kc As String
Private Sub Command1_Click()
kc_条件 = Me.Text1
Adodc1.CommandType = adCmdText
Me.Adodc1.RecordSource = "select * from stu where " + kc + " " + kc_条件
Me.Adodc1.Refresh
End Sub
Private Sub Form_Load()
kc_条件 = ">=92"
kc = "VB"
End Sub
Private Sub Option1_Click()
kc = "VB"
End Sub
Private Sub Option2_Click()
kc = "Math"
End Sub
Private Sub Option3_Click()
kc = "English"
End Sub

Answer 1

应该是"select * from stu where " + kc + " " + kc_条件，这个语句有问题。