Sub saveDataToSQL(ByVal dataSource As DataTable, ByVal destTablename As _
      String)
 
        Dim dsData As New DataSet
        Dim tblData As New DataTable
 
        Dim MySqlConnectionString As String = _
          "Server=10.100.201.70;Database=motordata;Uid=testuser;Pwd=testuser;"
        Using MySqlConnection As New MySqlConnection(MySqlConnectionString)
            MySqlConnection.Open()
            Using MySqlTransaction As MySqlTransaction = _
              MySqlConnection.BeginTransaction
                Using MySqlAdapter As New MySqlDataAdapter("SELECT * FROM" & _
                "datatable_" & destTablename, MySqlConnection)
 
                    MySqlAdapter.SelectCommand.Transaction = MySqlTransaction
 
                    Dim MySqlCommandbuilder As New MySqlCommandBuilder( _
                      MySqlAdapter)
                    MySqlCommandbuilder.GetInsertCommand()
 
                    MySqlAdapter.Update(dataSource)
 
                End Using
                MySqlTransaction.Commit()
            End Using
            MySqlConnection.Close()
        End Using
 
    End Sub