Public Sub ExecuteOnly(ByVal sSQL As String, _
           Optional ByRef lRecordsAffected As Long = 0)
 
  If Me.State = MY_CONN_CLOSED Then Exit Sub
  If Trim(sSQL) = "" Then Exit Sub
 
  If mysql_query(mlMYSQL, sSQL) <> 0 Then
    CheckForError
  Else
    lRecordsAffected = mysql_affected_rows(mlMYSQL)
  End If
End Sub

For c = 1 To 100000
  'mySQL.Execute "INSERT INTO tests (test) VALUES('test')"
  'mySQL.ExecuteOnly "INSERT INTO tests (test) VALUES('test')"
Next c