Visual basic 2008 Info System Need Help on my PORBLEM PLEASE :(

[kram2by4]

hello good day im a 2nd yr it student doing my program thesis an info sytem about a police station.. now i got a problem in on of my procedure Create_Table
this is a part of my CRUD

Private Sub Create_Table()
        dt = New DataTable("Temp")
        cmd = New OleDbCommand("Select from InmateInfo", cn)
        cn.Open()
        dr = cmd.ExecuteReader
        dt.Clear()
        For i = 0 To dr.FieldCount - 1
            dt.Columns.Add(dr.GetName(i), dr.GetFieldType(i))
        Next
        While dr.Read
            Dim drw As DataRow = dt.NewRow
            For i = 0 To dr.FieldCount - 1
                drw(i) = dr(i)
            Next
            dt.Rows.Add(drw)
        End While
        dr.Close()
        cn.Close()
        DataGridView1.DataSource = dt

my dr = cmd.ExecuteReader always shows an error every time i click my form.. .anyone can help and show my mistakes?