kusura bakmayın "requery" eklemeyi unutmuşum
"frmCariAra" formunun yüklenirken olayı

Private Sub Form_Load()

Dim txtSql As String

If Not IsNull(OpenArgs) Then Me.TxtId = OpenArgs

Me.lstCariAra.Requery '<== Bu satırı eklememişim 

End Sub