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

Question

想实现变量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

Answer 1

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

Answer 2

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

Answer 3

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