VB问题求救！！！！！

Private Sub Command1_Click()
'条件结构
Dim a As Single
a = InputBox("输入一个有理数")
If Int(a) = a Then
MsgBox "你输入的是整数"
Else
MsgBox "你输入的不是整数"
End If
End Sub

MSDN是这样说的：

SYMPTOMS
When opening a Microsoft Jet table using ActiveX Data Objects (ADO), the program displays the following error:

Run-time error '-2147217900 (80040e14)':
[Microsoft][ODBC Microsoft Access 97 Driver] Syntax error in FROM
clause.

CAUSE
The table name is a SQL reserved word, such as "Order".

RESOLUTION
Change the table name to a non-reserved word, such as "Orders" or place square brackets around the name: "[Order]"

STATUS

通过上文看不出什麽错误。你的错误信息最好说一下。
猜测要么你变量没有被赋值或者赋值为Null。要么也可能类型不正。
也有可能这边变量中包含非法字符。例如单引号。或者%等

检查下YPJJ里面有没有带有‘或者“之类的字符，如果有需要进行转义才能插入数据。