[vb] Mysql in een word formulier

[Verwijderd]

Function test()
Dim rs As ADODB.Recordset
Dim db As Database


Set adoserverconnection = New ADODB.Connection
adoserverconnection.ConnectionString = "driver={MySQL};" & "server=" + "" + ";uid=;pwd=;database="
adoserverconnection.ConnectionTimeout = 30
adoserverconnection.Open

Set db = adoserverconnection.Open
Set rs = db.OpenRecordset("SELECT * from vrienden")

If rs.RecordCount > 0 Then
MsgBox ("Hij doet het")
Else
MsgBox ("Kut")
End If


End Function

Dit werkt niet, waarschijnlijk omdat set db = adoserver etc. niet mag. Hoe defineer ik nu het object db dan???

[mulder]

Set rs = adoserverconnection.OpenRecordset("SELECT * from vrienden")

Zal al beter werken, weet trouwens niet wat er niet werkt, of is die tabel soms leeg...HAHAHAHA vette grap.

Geef de foutmelding eens. Niet dat ik iets van ADO weet, maar je weet maar nooit.