Visual Basic 6 - importare un database con mysql e vb6

ok, aspetto tue notizie. (speriamo buone xD).

allora,grazie al colpo maestro di GrG,ho creato una funzione pubblica con il codice

Public Function RestoreTable(nomepercorsomysql As String, user As String, miapassword As String, localhost As String, databaseserver As String, databaseimport As String)
Dim nomebat As String, nomepercorso As String
nomepercorsomysql = """" & nomepercorsomysql & """"
Open App.path & "\EseguiImport.bat" For Output As #1
Print #1, nomepercorsomysql & " -u " & user & " -p" & miapassword & " -h " & localhost & " " & databaseserver & " < " & databaseimport
Print #1, exit
Close #1
nomebat = "cmd /c start "
nomepercorso = App.path & "\EseguiImport.bat"
Shell nomebat & nomepercorso, vbNormalFocus
DoEvents
Sleep (2000)
Kill nomepercorso
End Function

richiamata con (esempio)

FMain.RestoreTable FMain.StrComandoMySQL, FMain.NomeUser, FMain.PasswordUser, FMain.DatabaseTCPIP, FMain.NomeDatabase, NomeBackUp

questa righa parte al cliccare un button in un form che si avvia al cliccar il button di restore.questo form secondario rileva i file .sql che si trovano nella cartella di backup e vengono presentati su un listbox.al cliccare sull'item della listbox viene anche prelevato il percorso.
grazie


PS:al ripulire il codice inseriro le funzione pubbliche su un modulo per non richiamare i form.