Run-time error 13 Type Mismatch

Hvordan ser koden ud?

form2. som giver fejlen ser sådan her ud:
    Dim Conn As New Connection
    Dim rs As Recordset
    Dim strSQL, listSQL, lpID, deSQL As String
    Dim lt1, lt2, lt3, lt4, lt5, II, dbI As Integer
    Dim araSp
   

     
  Function Connection()
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\bingo.mdb"
  End Function



Private Sub Command1_Click()

If Not t1 = "" And Not t2 = "" And Not t3 = "" And Not t4 = "" And Not t5 = "" And Not pID = "" Then

Connection
strSQL = "INSERT INTO rakker (pID,tal1,tal2,tal3,tal4,tal5) VALUES ('" & pID.Text & "'," & t1.Text & "," & t2.Text & "," & t3.Text & "," & t4.Text & "," & t5.Text & ")"
Conn.Execute (strSQL)
MsgBox "PladeID" & pID.Text & " : tal " & t1.Text & " - " & t2.Text & " - " & t3.Text & " - " & t4.Text & " - " & t5.Text & " -  tilføjet", Title:="TIlføjet"
Conn.Close

UpdateList
Else
MsgBox "Et eller flere felter mangler at bliver tilføjet", Title:="Fejl, buttons:=vboKONLY"
End If

End Sub



Private Sub Command2_Click()

If List1.Text = "" Then
MsgBox "Du skal vælge en række", Title:="Fejl"
Else
MsgBox "Sletter række '" & List1.Text & "'...", Title:="Slet"

araSp = Split(List1.Text, "%")


Connection
  deSQL = "DELETE * FROM rakker WHERE id =" & araSp(0)
Conn.Execute (deSQL)
Conn.Close
UpdateList
End If

End Sub

Private Sub Form_Load()

UpdateList
End Sub
Function UpdateList()

List1.Clear

Connection
  listSQL = "SELECT * FROM rakker ORDER BY id DESC"
  Set rs = Conn.Execute(listSQL)

  While Not rs.EOF
    lt1 = rs("tal1")
    lt2 = rs("tal2")
    lt3 = rs("tal3")
    lt4 = rs("tal4")
    lt5 = rs("tal5")
    lpID = rs("pID")
    dbI = rs("id")
   
    List1.AddItem dbI & "%    " & lpID & " ::  " & lt1 & "  " & lt2 & "  " & lt3 & "  " & lt4 & "  " & lt5
 
   
   
        rs.MoveNext
  Wend



Conn.Close


End Function

Du kan sætte et breakpoint på linien Updatelist i Form_Load og så bruge F8 til at trace dig igennem linie for linie og se hvor fejlen kommer.

Er du sikker på at du har fået databasen med og at den er det rigtige sted?

Ja fejlen opstår kun på min Win 98 maskine, som programmet desværre også skal køre fra.

Databasen er ved og jeg kan sagtens connecte /skrive / slette til den i form_1.

Har du prøvet at trace dig igennem?

Problemet er jo nok at det er en compileret exe fil han prøver og køre på win 98?
En måde og debugge i en exe fil er og lave en hulens masse msgbox så man kan få en ide om hvor det går galt.

Hmm, jeg opfattede det som at der var adgang til VB på begge maskiner, men hvis det ikke er tilfældet så har du da ret helmet, en masse msgboxe skal der til.

Det er nok fordi du mangler nogle vb tools på din win 98 maskine.
Prøv at lave en exe fil fra dit program, Og indstaller det på din win98 maskine.

Hvordan gik det?

msgbox-debug metoden klarede det. Jeg måtte åbenbart ikke kører en database med navnet rs.

smider i svar?

jo da

?