Ricerca Autoincrement nel campo (Db Access)

Ricerca tra i vari campi il campo contatore

'*******************************************************

' questa funzione CERCA il campo e' autoincrement

'*******************************************************


Public Function VerificaCampoAutoIncrement(ByVal Tabella As String, ByVal NomeDatabase As String, ByVal Campo As String) As Boolean
On Error GoTo Errore


Dim strConnect As String
Dim ADOCon As ADODB.Connection
Dim X As Integer

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & NomeDatabase & ";Persist Security Info=False"

ADOCon = New ADODB.Connection
With ADOCon
.ConnectionString = strConnect
.Open()
End With

Dim Rs As ADODB.Recordset
Rs = New ADODB.Recordset
Rs.let_ActiveConnection(ADOCon)
Rs.CursorLocation = ADODB.CursorLocationEnum.adUseServer
Rs.CursorType = ADODB.CursorTypeEnum.adOpenStatic
Rs.Open(Tabella)

VerificaCampoAutoIncrement = False




For X = 0 To Rs.Fields.Count - 1
If Rs.Fields(X).Properties("ISAUTOINCREMENT").Value = True And Rs.Fields(X).Name = Campo Then
VerificaCampoAutoIncrement = True

Rs.Close()
ADOCon.Close()

Exit Function

End If
Next X


ADOCon.Close()


Exit Function

Errore:
'**********************

' e' una query ed esce

'**********************

VerificaCampoAutoIncrement = False
ADOCon.Close()
Rs.Close()

End Function