Sub saveDataToSQL(ByVal dataSource As DataTable, ByVal destTablename As _
      String)
 
        Using oSqlConn As New MySqlConnection
 
            oSqlConn.ConnectionString = _
              "Server=10.100.201.70;Database=motordata;Uid=testuser;Pwd=testus" & _
              "r;"
 
            Dim dsData As New DataSet
 
            Dim oDataAdapter As New MySqlDataAdapter("SELECT * FROM datatable_" _
              & destTablename, oSqlConn)
            oDataAdapter.Fill(dsData)
 
            Dim tblData As New DataTable : 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
 
            Dim oCB As MySqlCommandBuilder
            oCB = New MySqlCommandBuilder(oDataAdapter)
            oCB.GetInsertCommand()
 
            oDataAdapter.Update(dsData)
 
        End Using
    End Sub