我用VB6，想调用access数据库中指定的数据,并将其赋值给变量C ，望高手指点

Private Sub Command1_Click() dim c as string Set conn = CreateObject("adodb.connection") Set rs = CreateObject("adodb.recordset") conn.open "provider=microsoft.jet.oledb.4.0;data source=c:\db1.mdb" rs.open "select p