求链接access数据库代码。用 高分奉上解决方案

求链接access数据库代码。急用 高分奉上
要快啊，急用，给我可以用的码，做软件有
------解决方案--------------------

Dim s() As String

        Dim cnn As New OleDbConnection

        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Projects\tt.mdb"

        cnn.Open()

        Dim ds As New DataSet

        Dim da As New OleDbDataAdapter("select * from table", cnn)

        cnn.Close()

        da.Fill(ds, "table")

        If ds.Tables(0).Rows.Count <> 0 Then

            ' Dim s As String = ds.Tables(0).Rows(0).ToString()

            Dim i As Integer

            For i = 0 To ds.Tables(0).Rows.Count - 1

                s(i) = ds.Tables(0).Rows(i)("id").ToString()

            Next

        End If

       

------解决方案--------------------

 Dim con As New OleDbConnection

        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db\db.mdb"

        con.Open()

给我分啊 我测试了 好的