visual basic 6.0 + mysql

Har løst mit problem

[kode]
Dim strDatabaseName As String
Dim strDBCursorType As String
Dim strDBLockType As String
Dim strDBOptions As String



Private Sub Command1_Click()
On Error GoTo Command1_Click_Error
Dim b As Long
'ikke nødvendig for funktion
'strDBCursorType = adOpenDynamic  'CursorType
'strDBLockType = adLockOptimistic  'LockType
'strDBOptions = adCmdText        'Options

Set cn = CreateObject("ADODB.Connection")
Me.MousePointer = 11

cn.Open ConnectString()
   
    With cn
        .CommandTimeout = 0
        '.CursorLocation = adUseClient 'anner ike hvad gjor godt for udkommenteret, virker
    End With

    Set Rs = CreateObject("ADODB.RecordSet")      'Creates record set

    strSQL = "SELECT * FROM type ORDER BY id ASC" 'min sql streng
   
    'rs.Open strSQL, cn, strDBCursorType, strDBLockType, strDBOptions
    'data der ikek var nødvendig frasorterede
    Rs.Open strSQL, cn

If Rs.EOF Then
  GoTo ExitSub
Else
    Do
        '<do whatever you need to do with the data here>
        List1.AddItem Rs("typenavn")
    Rs.MoveNext
    Loop While Not Rs.EOF
End If
   
ExitSub:

Rs.Close
Set Rs = Nothing
cn.Close
Set cn = Nothing

On Error GoTo 0
Exit Sub

Command1_Click_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Form " & Me.Name
End Sub

Private Function ConnectString() As String
Dim strServerName As String
Dim strDatabaseName As String
Dim strUserName As String
Dim strPassword As String

    'Change to IP Address if not on local machine
    'Make sure that you give permission to log into the
    'server from this address
    'See Adding New User Accounts to MySQL
    'Make sure that you d/l and install the MySQL Connector/ODBC 3.51 Driver

strServerName = "127.0.0.1"
strDatabaseName = "thomas"
strUserName = "thomas"
strPassword = "web"

ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                "SERVER=" & strServerName & _
                ";DATABASE=" & strDatabaseName & ";" & _
                "USER=" & strUserName & _
                ";PASSWORD=" & strPassword & _
                ";OPTION=3;"

End Function


[/kode]