给的分太少了点,不过,将就啦,嘿
你用这个试试:Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
s = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;" _
& " Data Source=d:\vb61x\rsg1.mdb"
cnn.Open s
Set rst = New Recordset
rst.Open "职工工资", cnn, 1, 3

解决方案 »

  1.   

    vb.net我用着不习惯,给你用C#写的吧
    public void InsertRow(string myConnectionString) 
     {
        // If the connection string is null, use a default.
        if(myConnectionString == "") 
        {
           myConnectionString = "Initial Catalog=Northwind;Data Source=localhost;Integrated Security=SSPI;";
        }
        SqlConnection myConnection = new SqlConnection(myConnectionString);
        string myInsertQuery = "INSERT INTO Customers (CustomerID, CompanyName) Values('NWIND', 'Northwind Traders')";
        SqlCommand myCommand = new SqlCommand(myInsertQuery);
        myCommand.Connection = myConnection;
        myConnection.Open();
        myCommand.ExecuteNonQuery();
        myCommand.Connection.Close();
     }
      

  2.   

    我刚开始也和你一样,不妨试一下这个方法,从IDE开发环境服务器资源连接中,选择“新建连接”,然后根据向导选择你要连接的数据库,从生成的连接中选择属性,拷贝出ConnectionString即可保证连接字符串无误
      

  3.   

    不要用ado了吧,要用ADO.NET了,zj492(恋云)就是用ADO.NET写的了,它的用于sqlserver,我用VB.NET写个access的给你看吧
    先要导入相关的命名空间
    imports system.data
    imports system.data.oledbdim cnn as new oledbConnection()
    cnn.connectionstring="Provider=microsoft.jet.oledb.4.0;data source=d:\vb61x\rsg1.mdb"
    cnn.open()
    '创建数据集,在.NET下,不要用记录集了,虽然可以用
    dim strSql as string="select * from xxx"
    dim objCmd as new oledbDataAdapter(strSql,cnn)
    dim objDs as new dataset()
    objCmd.fill(objDs,"xxx")大概就是这样了