Visual Basic - error de llenado de tabla mediante Datagrid

Private Sub llenaGrid()

    Dim ds As New DataSet

    Dim dt As New DataTable

    Dim strsql As String = "SELECT IDPERSONA, NOMBRE, APELLIDO, CORREO, DIRECCION FROM PERSONA"

    Dim adp As New OleDb.OleDbDataAdapter(strsql, conn)

    ds.Tables.Add("tabla")

    adp.Fill(ds.Tables("tabla"))

    Me.DataGridView1.DataSource = ds.Tables("tabla")     <---- aca se produce error

End Sub