' Verbindung zur MsQL-Datenbank herstellen
oConn.OpenConnection sServer, _
  sUsername, sPassword, sDBName

' SQL-Abfrage
Dim oRs As MYSQL_RS
sSQL = "SELECT ip FROM server WHERE idnummer = 1"
Set oRs = oConn.Execute(sSQL)
bError = MySQL_Error()
If Not bError Then
  txtIP.Text = oRs.Fields("ip").Value
End If
oRs.CloseRecordset

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de