Hej, jag jobbar med ett återförsäljarregister. Hur gör jag så att ComboBoxen updateras när man ändrar databasen genom programmet?

Min kod ser ut så här(Den är ganska ful):
Public Sub cmdSave_Click()
Dim db As Database
Dim rs As Recordset
Dim SQLString As String
Set db = OpenDatabase("C:\Jimmie\programmering\test.mdb")
SQLString = "SELECT name.ID, name.Name1, name.Surname From Name WHERE ((name.Name1)='" & lstNames.Text & "');"
Set rs = db.OpenRecordset(SQLString)
rs.Edit
rs.Fields("name1") = txtName.Text
rs.Fields("surname") = txtSurname.Text
rs.Update
rs.Close
db.Close
End Sub

Public Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Dim SQLString As String
Set db = OpenDatabase("C:\Jimmie\programmering\test.mdb")
SQLString = "SELECT name.Name1, name.Surname FROM name ORDER BY name.Name1, name.Surname;"
Set rs = db.OpenRecordset(SQLString)
Do Until rs.EOF
lstNames.AddItem rs.Fields("Name1")
rs.MoveNext
Loop
rs.Close
db.Close
End Sub

Public Sub lstNames_Click()
Dim db As Database
Dim rs As Recordset
Dim SQLString As String
Set db = OpenDatabase("C:\Jimmie\programmering\test.mdb")
SQLString = "SELECT name.ID, name.Name1, name.Surname From Name WHERE ((name.Name1)='" & lstNames.Text & "');"
Set rs = db.OpenRecordset(SQLString)
txtID.Text = rs.Fields("ID")
txtName.Text = rs.Fields("name1")
txtSurname.Text = rs.Fields("surname")
rs.Close
db.Close
End Sub


Alla förslag till förbättringar av koden välkomnas varmt!

MVH Jimmie Pettersson

combo1.refresh kanske?

MVH
/bj

Fick det inte att fungera med combo1.refresh, men jag använde combo1.clear och tömde den sen så la jag delen som la till användarna till ComboBoxen i en funktion och anropade den efter combo1.clear.
Tack för dit snabba svar!!!