Ciao a tutti

Mi hanno incaricato di copiare da un database le citta e da un'altro il cap.....

e scrivere tutto su un'altro database, ma sono una marea di dati!!!

allora ho pensato di far fare tutto a VB e diciamo che ci sono riuscito, ma quando non trova un record mi da errore io vorrei fare in modo che se non trova un record passi al successivo

questo e il codice

codice:
Private Sub Command1_Click()
Dim sSearch As String
Dim Db As Database
Dim Rs As Recordset
If Text1 <> "0" Then
sSearch = "select * from Comuni where ID = " & Text1 & ""
Set Db = OpenDatabase(App.Path & "\Comuni97.mdb", False, False)
Set Rs = Db.OpenRecordset(sSearch)
Set Data1.Recordset = Rs

Text2 = Rs!COMU_DESCR
Provincia = Rs!COMU_PROV
Codice1 = Rs!COMU_COD




Else

Comune = ";-))"

End If

Rs.Close
End Sub









Private Sub Text1_Change()
Dim sSearch As String
Dim Db As Database
Dim Rs As Recordset
If Text1 <> "0" Then
sSearch = "select * from Comuni where ID = " & Text1 & ""
Set Db = OpenDatabase(App.Path & "\Comuni97.mdb", False, False)
Set Rs = Db.OpenRecordset(sSearch)
Set Data1.Recordset = Rs

Text2 = Rs!COMU_DESCR
Provincia = Rs!COMU_PROV
Codice1 = Rs!COMU_COD




Else

Comune = ";-))"

End If

Rs.Close
End Sub

Private Sub Text2_Change()
Dim sSearch As String
Dim Db As Database
Dim Rs As Recordset
If Text2 <> "0" Then
 'sSearch = "select * from Comuni where ID = " & Text2 & ""
sSearch = "select * from Comuni where Comune like '*" & Replace(Text2, "'", "''") & "*'"
Set Db = OpenDatabase(App.Path & "\Cap.mdb", False, False)
Set Rs = Db.OpenRecordset(sSearch)
Set Data2.Recordset = Rs

Comune1 = Rs!Comune
Provincia1 = Rs!Provincia
Prefisso1 = Rs!Prefisso
Capoluogo1 = Rs!Capoluogo
Catastale1 = Rs!Catastale
Cap1 = Rs!Cap
Else

Comune = ";-))"

End If

Rs.Close

Data3.Recordset.AddNew

Data3.Recordset!Comune = Comune1
Data3.Recordset!Provincia = Provincia1
Data3.Recordset!Prefisso = Prefisso1
Data3.Recordset!Capoluogo = Capoluogo1
Data3.Recordset!Catastale = Catastale1
Data3.Recordset!Cap = Cap1
Data3.Recordset!Codice = Codice1

Data3.Recordset.Update

Text1 = [Text1] + 1


End Sub
mi dice "nessun record corrente" ed evidenzia questo

Comune1 = Rs!Comune

come posso dire che se non trova il record deve aggiungere 1 a text1 e ripetere la ricerca??

Grazie mille