oSqlCmd.ExecuteNonQuery()

    Sub saveDataToSQL(ByVal file_name As String, ByVal destTablename As String)
        'file_name = "D:\test.txt"
        Dim oSqlCmd As New MySqlCommand
        oSqlCmd.Connection = MySqlConn
 
        oSqlCmd.CommandText = "LOAD DATA LOCAL INFILE '" & file_name.Replace( _
          "\", "/") & "' INTO TABLE datatable_" & destTablename & _
        " FIELDS TERMINATED BY '" & vbTab & "' LINES TERMINATED BY '" & _
        vbNewLine & "'"
 
        If MySqlConn.State = ConnectionState.Closed Then
            MySqlConn.Open()
        End If
 
        Try
        oSqlCmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        MySqlConn.Close()
    End Sub

    Sub saveDataToSQL(ByVal dataSource As DataTable, ByVal destTablename As _
      String)
        Dim oSqlCmd As New MySqlCommand
        oSqlCmd.Connection = MySqlConn
        Dim dsData As New DataSet
 
        If MySqlConn.State = ConnectionState.Closed Then
            MySqlConn.Open()
        End If
        oSqlCmd.CommandText = "SELECT * FROM datatable_" & destTablename
        Dim oDataAdapter As New MySqlDataAdapter(oSqlCmd)
        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)
 
        MySqlConn.Close()
 
    End Sub