请帮我看看这个那里错了？？？

Question

Option Explicit
Dim rsRecord As New ADODB.Recordset
Dim cnnRecord As New ADODB.Connection
Dim cmdRecord As New ADODB.CommandPrivate Sub Command1_Click()
Dim myQuery
Dim myQuery1
Dim myQuery2
Dim myQuery3
Dim myQuery4
Dim myRs
myQuery1 = "SELECT"
myQuery2 = Trim(Text1.Text)
myQuery3 = Trim(Text2.Text)
myQuery4 = "from 费用表"
If myQuery2 = "" And myQuery3 = "" Then
RichTextBox1.Text = "请重新输入"
StatusBar1.SimpleText = "请重新输入"
End If
If myQuery2 = "" Then
myQuery = "SELECT myquery3 from 费用表"
rsRecord.Open myQuery, cnnRecord '说我有至少有一个参数没有指定值RichTextBox1.Text = rsRecord.Status
End IfEnd SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
Dim myProvider As StringmyProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\record.mdb;Persist Security Info=False"
Set rsRecord = New ADODB.Recordset
Set cnnRecord = New ADODB.Connection
Set cmdRecord = New ADODB.Command
cnnRecord.Open myProviderLabel1.Caption = "日期"
Label2.Caption = "项目"
Text1.Text = ""
Text2.Text = ""
RichTextBox1.Text = ""
Command1.Caption = "确定"
Command2.Caption = "退出"
End Sub我都不知道我那里错了，希望大家给我指正一下！！多谢多谢！！ 上面注释了的地方就是说我错的地方，但我却不知道究竟是那里错了，我看了msdn的例子，都好像是这样的。

Answer 1

myQuery = "SELECT " & myquery3 & " from 费用表"

Answer 2

myQuery = "SELECT " & myquery3 & " from 费用表"
rsRecord.Open myQuery, cnnRecord,3,1

Answer 3

我已经将myquery 那句改了，但是rsRecord.Open myQuery, cnnRecord,3,1 还是有出错。

Answer 4

在rsRecord.Open myQuery, cnnRecord处加断点，看看 myQuery是什么内容。text2是否为空？是否为存在的字段名？

Answer 5

我在rsRecord.Open myQuery, cnnRecord处加了断点，调试时出现实时错误‘－2147217900（80040e14）’
无效的SQL语句；期待‘DELETE'、’INSERT'、‘PROCEDURE’、‘SELECT’、或'UPDATE‘。
这是不是说我的myQuery = "SELECT " & myquery3 & " from 费用表"这句有错。但好像这样是无错的啊,请帮帮忙解决

Answer 6

我的myquery3=text2.text
我需要判断的是如果我的两个文本框text1 和text2 都为空，则显示要重新输入，如果其中一个为空，则按另一个不为空的进行操作。
我在调试时，当两个文本框都为空时，就会出现我说的错误。
应该如何解决呢？

Answer 7

If myQuery2 = "" And myQuery3 = "" Then  '当两个都为空时，退出
RichTextBox1.Text = "请重新输入"
StatusBar1.SimpleText = "请重新输入"
exit sub
End If

Answer 8

这样无没有退出，会影响下面吗？？他提示的错误是说我的sql 语句有问题。

Answer 9

If myQuery2 = "" And myQuery3 = "" Then
    myQuery2 = "*"
ElseIf myQuery2 = "" Then 
    myQuery2 = myQuery3 
ElseIf myQuery3 = "" ThenElse
    myQuery2 = myQuery2  & " And " & myQuery3 
End IfmyQuery = "SELECT " & myQuery2 & " from 费用表"

Answer 10

flyfeel(图灵) :
为什么我用你的方法当运行时，myquer2和myquery3 都为空，当我按两次command1 时就会出现错误，但无说明错误的原因，只是错误停留在rsRecord.Open myQuery, cnnRecord 这句上，请问这是什么原因啊？