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.Fill(dsData)
                    tblData = dsData.Tables(0)
 
                    For ctr = 0 To dataSource.Rows.Count - 1
                        Dim oRow As DataRow = tblData.NewRow
                        oRow.ItemArray = dataSource.Rows(ctr).ItemArray
                        tblData.Rows.Add(oRow)
                    Next
 
                    MySqlAdapter.Update(dsData)
 
                End Using
                MySqlTransaction.Commit()
            End Using
            MySqlConnection.Close()
        End Using
 
    End Sub