帮我看看语法有什么问题？？在线等。

Question

sql1 = "select '姓名' from" & Text3.Text & "  where 帐号='" & jiami(Text1.Text) & "'"
还有一个如果错误的话用GOTO转到指定地点该怎么做。On Error Resume Next：这个好象是下一个。

Answer 1

on error goto err
err:
  错误发生应该执行的代码

Answer 2

private sub command1_click()
on error goto aa
    sql1 = "select 姓名 from " & Text3.Text & "  where 帐号='" & jiami(Text1.Text) & "'"
    ...
    ...
    exit sub
aa:
    msgbox "错误：" & err.description,vbexclamation,"提示"
    exit sub
end sub

Answer 3

sql1 = "select 姓名 from " & Text3.Text & " where 帐号='" & jiami(Text1.Text) & "'"