Hi.
I want to make a function to bind DataGrid with Access Data tables.
This is my code, which is not working.
What am I doing wrong?

Code:
Public sConnString As String = _
                    "Driver={Microsoft Access Driver (*.mdb)};" & _
                    "Dbq=D:\VBProjects\GestaoProjecto\BaseDados\GesProj.mdb;" & _
                    "Uid=Admin;" & _
                    "Pwd="


    Function OpenDataSet(ByVal strSQL As String) As DataSet
        Dim ds As DataSet
        Dim DataAdapt As Odbc.OdbcDataAdapter


        DataAdapt = New Odbc.OdbcDataAdapter(strSQL, sConnString)
        ds = New DataSet()
        Return ds

    End Function
On my form, I've got this code to bind my datagrid.

Code:
  Private Sub FormArtigos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CarregaArtigos()
    End Sub

    Private Sub CarregaArtigos()
        Me.DataGridView1.DataSource = OpenDataSet("Select * from Artigos")
    End Sub
Thank you.