Private Sub Command1_Click()
List1.Clear
List2.Clear
Dim Lastid As Integer
rs.AddNew
rs.Fields("countryname").Value = Me.country.Text
Lastid = rs![id]
rs.Update
Me.Refresh
List1.Refresh
rs.MoveLast
'If rs.State = 1 Then rs.Close
'rs.Open "select @@identity", con
'Lastid = rs.Fields(0).Value
For Each h In Split(cities.Text, vbCrLf)
rs2.AddNew
rs2.Fields("countryid").Value = Lastid
rs2.Fields("cityname").Value = h
rs2.Update
Next
Me.Refresh
List2.Refresh
rs2.MoveFirst
gd
End Sub