请问这样的语句有什么问题？困扰了好几天了

想实现变量a读取TEXT中的内容，然后表更新中引用这个变量a，数据库名称字段为文本类型



Private Sub Command3_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim a As String
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\xxgl1\xxgl.mdb;Persist Security Info=False"
a = Text4.Text
print a
SQL = "update lb set 确认='确认'where 数据库名称='a'"(这个语句有什么问题？)
Set rs = cn.Execute(SQL)
End Sub

VB code

SQL = "update lb set 确认='确认'where 数据库名称='" & a & "'"