问题：VB6.0使用ADO对象模型访问数据库，怎么读取sql数据
需求 ：我想把sql数据显示在文本框里面，点击命令按钮才出现
Private Sub Command1_Click()
Dim mycon As New ADODB.Connection '1,使用Dim语句创建一个Connection对象
'2,使用sql 用户名和密码连接数据库
mycon.ConnectionString = "Driver={SQL Server};Server=(local);User ID=sa;pwd=*******.;Database=Library"
'3,用Connection对象的Open方法打开 与数据库的连接
mycon.Open
'4,执行sql
'4.1 (执行查询的操作)
Dim myrs As New ADODB.Recordset
Set myrs = mycon.Execute("select * from book")
'5,关闭sql连接
mycon.Close
'6,释放或删除sql连接
Set mycon = Nothing
End Sub
