高手来一下 数据库连接的有关问题

高手来一下 数据库连接的问题
  Dim mycon = New ADODB.Connection
        mycon.Open("Provider=SQLOLEDB.1;Initial Catalog=个人信息;Data Source=(local)")
        Dim rst As New ADODB.Recordset
        Dim sql As String
        sql = "select * from 用户信息"
        rst.Open(Trim(sql), mycon)
        rst.AddNew()
        rst.Fields(0).Value = TextBox1.Text
        rst.Fields(1).Value = TextBox2.Text
        rst.Update()
        MsgBox("数据录入成功")


mycon.Open这出错 
检查该异常的 ErrorCode 属性，以确定 COM 对象返回的 HRESULT 

[解决办法]
http://download.csdn.net/detail/veron_04/1371356