Ricerca

Ricerca = TextBox0.Text

FrmAmministratori.ShowDialog()
FrmAmministratori = Nothing


FrmCondomini_Load(sender, e)

CondominiBindingSource.MoveFirst()
Dim BsPosizione As Integer = CondominiBindingSource.Find("id", Ricerca)
CondominiBindingSource.Position = BsPosizione
If CondominiBindingSource.Position = CondominiBindingSource.Count Then
MsgBox("Fine del recordset")
End If