Vb.net function call

See more:

VB

Hello can someone assist me, how to make this correct.
I want to make function for select in ms access file

First i have Func.vb

Public Sub ReadTables(ColumNamer As String, Datatable As String)
Try
            With cmd
                .Connection = conn
                .CommandText = "Select * From @ColumnName"
                .Parameters.AddWithValue("@ColumnName", ColumNamer)

                ds.Tables.Add(dt)
                Adapter.SelectCommand = cmd
                Dim cb = New OleDbCommandBuilder(Adapter)
                cb.QuotePrefix = "["
                cb.QuoteSuffix = "]"
                Adapter.Fill(dt)
                Datatable.DataSource = dt.DefaultView
                .Parameters.Clear()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Adapter.Dispose()
            dt.Dispose()
            cmd.Dispose()
            If conn IsNot Nothing Then
                conn.Close()
            End If
        End Try
    End Sub

Then in my Form2 i have added Datagridview1
and in Form load i want to send the information/receive to load in Form2 Results

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ReadTables("Accounts",Datagridview1)

How to do that?
- Because i want to use this function for more call's in different Tables in ms access.
- First call to be "Table name" to call , Second is "DataGridView" name to call

In my form2 datagridview is called "datagridview1" so if i had renamed it in the
ReadTables("Accounts","Renamed Datagridview") and to display the results when form loads

What I have tried:

When i try use the code inside Form2, works correct, but when try use function nothing shows Datagridview1 in Form2 is not active at all no results shows.
No error messages shows.

Edit: i forgot to put Datagridview1 - From "Friend" to "Public" but still not work correct