Hjälp! Jag är trött, vad är fel? Verkar inte som om recordseten fungerar.

Sub cmdBekrafta_Click()
Dim db As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim cnstring As String
cnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Fritz\KURS\IM01\IM01HAVI\Systemutveckling3\BWBAB\Prototyp\BWBABv01.MDB;Persist Security Info=False"
db.Open cnstring

Dim SQL As String

db.Execute "INSERT INTO Koporder (Plats) VALUES (2)"

Set rs = db.Execute("SELECT MAX(Ordernr) AS Ordernr FROM Koporder")
Set rs1 = db.Execute("SELECT Artnr, Pris, Antal FROM Temp_forsaljning")
txtTest = rs(Ordernr)

SQL = "INSERT INTO Koporderrad (Antal, Artnr, PrisStyck) VALUES (" & rs1(Antal) & ", " & rs1(Artnr) & ", " & rs1(PrisStyck) & ")"

Do While Not rs.EOF
db.Execute SQL
rs.MoveNext
rs1.MoveNext
Loop

db.Execute "DELETE * FROM Temp_forsaljning"

db.Close
End Sub

Kanske ska vara något sånt här?:
<code>
Sub cmdBekrafta_Click()
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnstring As String
Dim SQL As String
Dim Ordernr as Long

cnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Fritz\KURS\IM01\IM01HAVI\Systemutveckling3\BWBAB\Prototyp\BWBABv01.MDB;Persist Security Info=False"
Set db= New ADODB.Connection
db.Open cnstring

db.Execute "INSERT INTO Koporder (Plats) VALUES (2)"

Set rs = db.Execute("SELECT MAX(Ordernr) AS Ordernr FROM Koporder")
Ordernr = rs(Ordernr)
txtTest = Ordernr
rs.Close

db.Execute "INSERT INTO Koporderrad (Ordernr, Antal, Artnr, PrisStyck) SELECT " & Ordernr & ", Antal, Artnr, PrisStyck FROM Temp_forsaljning"
db.Execute "DELETE * FROM Temp_forsaljning"
db.Close
End Sub
</code>

Chansade på att fältet i tabellen Koporderrad heter Ordernr.