Jag håller på med en databas i VB som är klar. Men mitt problem är att när jag väljer en produkt (A) och öppnar den i en annan ruta så funkar det bra. men när jag klickar tillbacka och väljer en annan produkt (B) och öppnar den i en ny ruta så visar det samma sak och namn som produkt A

Option Explicit
Dim rsService As Recordset
Dim rsNyService As Recordset

Private Sub cmdSpara_Click()
Set rsNyService = db1.OpenRecordset("Service", dbOpenDynaset)
rsNyService.AddNew
rsNyService("Datum") = Me.txtDatum.Text
rsNyService("Service") = Me.txtService.Text
rsNyService("Regnr") = strRegnr
rsNyService("Antal") = Me.txtAntal.Text
rsNyService("Pris") = Me.txtPris.Text
rsNyService("Plats") = Me.txtPlats.Text



rsNyService.Update

txtDatum.Text = ""
txtService.Text = ""
txtAntal.Text = ""
txtPris.Text = ""
txtPlats.Text = ""


lstDatum.Clear
lstService.Clear
lstAntal.Clear
lstPris.Clear
lstPlats.Clear


Call Form_Load
End Sub

Private Sub cmdTillbaka_Click()
frmService.Hide
frmReg.Show
End Sub


Private Sub Form_Load()
lblRegnr.Caption = strRegnr
Dim qrService As QueryDef
Set qrService = db1.QueryDefs("Service1")
qrService.Parameters("pService") = strRegnr
Set rsService = qrService.OpenRecordset()
Do Until rsService.EOF
lstDatum.AddItem rsService("Datum")
lstService.AddItem rsService("Service")
lstAntal.AddItem rsService("Antal")
lstPris.AddItem rsService("Pris")
lstPlats.AddItem rsService("Plats")
rsService.MoveNext
Loop


End Sub