'конектимся к базе
 Set mysql = New cMysql                     'initialize everything
 mysql.connect txtHost, txtUser, txtPass
 If mysql.err_no <>  0  Then
  ConnectToBase = False
  Exit Function
 End If
 If txtDB.Text =  "" Then Exit Function
Set a = mysql.query(" use " & txtDB.Text)
....................
select,insert,update
Set a = Nothing
.................
'закрываем конект и form1
Set mysql = Nothing

set rs=nothing 

mysql.free_result