Private Sub FormDati_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stringa As String

stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & App.Path & "\" & "Registrazione.mdb;Jet OLEDBatabase Password=;"

cn = New ADODB.Connection
rs = New ADODB.Recordset

cn.Open(stringa)
rs.Open("SELECT * FROM Dati", cn, 1)

If (rs.BOF = True) Then
Me.Close
frmAnagrafica.Show()
Else
.....
End Sub