vb调用数据库

我使用编号可以调用数据库换成变量就不能用了，怎么可以使用变量
Option Explicit
Dim db As Database
Dim rd As Recordset
Private Sub Command1_Click()
Dim a, b, c
c = "爱情木瓜"
b = Text1.Text & ".mdb"
a = Val(Text2.Text)
Set db = OpenDatabase(b, True, True)
Set rd = db.OpenRecordset(" select * from mp3where 名字=c")
Print rd.Fields("名字") '显示一下当前字段的内容
End Sub

Option Explicit
Dim db As Database
Dim rd As Recordset
Private Sub Command1_Click()
Dim a, b, c
c = "爱情木瓜"
b = Text1.Text & ".mdb"
a = Val(Text2.Text)
Set db = OpenDatabase(b, True, True)
Set rd = db.OpenRecordset("select * from mp3 where 名字='" & c & "'")
Print rd.Fields("名字") '显示一下当前字段的内容
End Sub
.....................
Set rd = db.OpenRecordset(" select * from mp3(这里有一个空格你没写)where 名字=c")
按你的原方法得出select * from mp3where 名字=c
所以要改成("select * from mp3 where 名字='" & c & "'")
才会得出select * from mp3 where 名字='爱情木瓜')

Private conn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Command1_Click()
Dim strquery As String
Set rs.ActiveConnection = conn
If (Text5.Text = "") Then
strquery = "select * from 职工信息"
Else