VB SQL的问题

我的数据库是A123 我的表格是QQ1，字段有：ID JJ XB
分别对应的是 账号 等级 性别
如果在知道ID的情况下，怎么将JJ 和 XB赋予给 text tex2
连字符为
Public db As New ADODB.Connection '声明数据库连接对象
Public RS As New ADODB.Recordset '声明将来就对象
Public Sub SJK(db) '连接数据库过程
db.ConnectionString = "provider=msdasql;driver={sql server};server=XP-201305281152\SQLEXPRESS;uid=sa;pwd=147258;database=A123"
db.Open
End Sub