Connecter til MySQL fint..men igen data

et par rettelser

Private Sub Form_Open(cancel As Integer)

Dim SQLstr As String



SQLstr = "SELECT medlem_stamdata.grad, medlem_stamdata.dato, medlem_stamdata.bemarkninger," _
& "medlem_stamdata.MedlemsID, medlem_stamdata.Fornavn, medlem_stamdata.Efternavn," _
& "medlem_stamdata.Adresse, medlem_stamdata.PostNr, medlem_stamdata.F_dato," _
& "medlem_stamdata.Telefon, medlem_stamdata.Mobil, medlem_stamdata.Email," _
& "medlem_stamdata.Hold, medlem_stamdata.Medlems_status, medlem_stamdata.Tidligere_gradueringer," _
& "medlem_stamdata.foto, baelte_billeder.Belt_pic, tbl_postkoder.By " _
& "FROM baelte_billeder INNER JOIN medlem_stamdata " _
& "ON baelte_billeder.grad = medlem_stamdata.grad " _
& "INNER JOIN tbl_postkoder " _
& "ON tbl_postkoder.PostNr=medlem_stamdata.PostNr"


Dim conn  As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim result As Long

    Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
        & "SERVER=localhost;" _
        & "DATABASE=gsk_db;" _
        & "UID=root;" _
        & "PWD=;" _
        & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
   
conn.Open
Set rs = New ADODB.Recordset
rs.Open SQLstr, conn, adOpenStatic, adLockOptimistic
'Me.RecordSource = "gsk_load_form"
   
'conn.Open Set rs = New ADODB.Recordset
'rs.Open gsk_load_form, conn, adOpenStatic, adlockoptimitic
'conn.Open
   
End Sub
Private Sub Form_Unload(cancel As Integer)
Me.RecordSource = ""
End Sub