I am trying to match the first two character's in a forms textbox with a 2 digit text field from a table and I'm getting type mismatch.
What am I doing wrong?


Private Sub loadList()

Dim db As Database

Dim TemptxtPatNO As String * 2


Set db = CurrentDb


TemptxtPatNO = Mid(txtPatNo, 1, 2)


Combo69.RowSource = "SELECT qry_Clinic.[clinicID] & " - " & qry_Clinic.[ClinicName] AS IDName" & _
"FROM qry_Clinic & qry_Clinic" & _
"Where TemptxtPatNO = qry_Clinic.[ClinicAgencyID];"


End Sub