"seek" Tak Jadi

[semutMerah 0]

Hi

Dah pening dah nih.. kat mana la salah silapnya nyaaa.. atau ADO mmg tak boleh buat seek?

Sub GetSolAddress(SolCode)

On Error GoTo errHandler

Dim rsCode As ADODB.Recordset

Set rsCode = New ADODB.Recordset

rsCode.Open "SolicitorFinal", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect

With rsCode

.MoveFirst

.Index = "PrimaryKey"

.Seek "=", SolCode '<<<Error Code 13 : Type mismatch

Debug.Print !LawyerFullName

End With

ExitHere:

rsCode.Close

Set rsCode = Nothing

Exit Sub

errHandler:

Debug.Print Err.Number & " : " & Err.Description & "(" & Err.Source & " - GetSolAddress)"

GoTo ExitHere

End Sub