Question

VB总是提示From子句语法错误

Private Sub Command1_Click()
On Error Resume Next

Dim strsql As String
'连接数据源
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=E:\方向资料\VB对AutoCAD二次开发\新程序\变电站设备型号.mdb;" _
& "Persist Security Info=False"
.CommandType = adCmdTable
End With
'根据用户输入形成SQL语句
strsql = " SELECT * FROM 变电站设备型号 WHERE [变电站名称] = " + "'" + Text1.Text + "*" + "'"

'获取所需数据
Adodc1.RecordSource = strsql

'刷新显示
Adodc1.Refresh
End Sub

Answer 1

SELECT * FROM 变电站设备型号 WHERE [变电站名称] = " + "'" + Text1.Text + "*" + "'"
这句SQL语句，后面Text1.Text后面为什么要加一个*号呢