Пустые строки в DataTable

    Public Sub GetAllRows(Table As DataTable)
 
        Try
            Dim connection As New MySqlConnection(" строка подключения ")
 
            connection.Open()
 
            Dim command As New MySqlCommand
 
            command.Connection = connection
 
            command.CommandText = "SELECT * FROM `" & Table.TableName & "`"
 
            command.ExecuteNonQuery()
 
            Dim adapter As New MySqlDataAdapter(command)
 
            adapter.AcceptChangesDuringFill = True
 
            adapter.Fill(Table)
 
        Catch ex As Exception
 
        End Try
 
    End Function

Public Function GetAllRows() as DataTable
    Dim result As DataTable
    Dim rows as Integer
    Try
            Dim connection As New MySqlConnection(" строка подключения ")
            Dim adapter As New MySqlDataAdapter()
            Dim aDataSet as New DataSet
            adapter.SelectCommand = New MySqlCommand("SELECT * FROM xxxxxxx", connection)
            rows=adapter.Fill(aDataSet, "TableName")
            result=aDataSet.Tables("TableName")
            MessageBox.Show ("Загруженно: " & rows & " строк")
    Catch ex As Exception
            MessageBox.Show (ex.Message)
    End Try
    Return result
End Function

BindingSource1.DataSource = DsБаза
BindingSource1.DataMember = "tblОсновная"
Grid1.DataSource = BindingSource1

            Dim command As New MySqlCommand
            Dim adapter As New MySqlAdapter
 
            command.Connection = connection
 
            command.CommandText = "SET NAMES CP1251"
            command.ExecuteNonQuery()
 
            command.CommandText = "SHOW TABLES"
 
            Dim T As New DataTable
 
            adapter.SelectCommand = command : adapter.Fill(T)
 
            T.Dispose()