ok, allora....
io ho creato un bottone che apre un pannello:
Sub Button5_Click
Panel5.Visible= True
Panel1.Visible= False
DBn.Query("SELECT * FROM elenco WHERE n_m='" & nm & "'", editnm)
DBn.Position = 0
SeekBar1.Max=DBn.Size-1
SeekBar1.Value=0
End Sub
e poi nel jobdone
Case editpark
Dim m As Map
m.Initialize
For Each m As Map In l
DBn.AddLinkView(txt_numero,"n_m")
DBn.AddLinkView(txt_ubicazione,"ubicazione")
DBn.AddLinkView(txt_indirizzo,"indirizzo")
DBn.AddLinkView(txt_zona,"zona")
DBn.AddLinkView(txt_indirizzo,"indirizzo")
DBn.AddLinkView(txt_cap,"cap")
Next
End Select
ma non funge nulla