Try
            Using Conn As SqlConnection = New SqlConnection(connStr)
                Conn.Open()
                Dim Query As SqlCommand = New SqlCommand(QueryStr, Conn)
                Dim RecReader As SqlDataReader = Query.ExecuteReader
                Dim Table As DataTable
                Dim Row As New DataRow
                Dim Field As Integer

                While RecReader.Read
                    For Field = 0 To (RecReader.FieldCount - 1)                                                
                      Row(Field) = RecReader.GetValue(Field)
                    Next
                    Table.Rows.Add(Row)
                End While
                Conn.Close()
                Return Table
            End Using
        Catch e As Exception
            MsgBox(e.Message, MsgBoxStyle.Exclamation, e.InnerException)
        End Try
    End Function