Ingresar Códigos Alfanuméricos Access / VB

Quiero consultarles ya que tengo el siguiente código donde el usuario ingresa un código numérico y se ejecuta perfectamente pero resulta que es necesario Ingresar ahora códigos Alfanuméricos pero me da error de ejecución y de criterios, ya cambie todas las tablas donde había conflicto e incluso los txt y comboBox de los formularios pero sigo sin poder ejecutar el código. ¿Tienen una idea que puede estar pasando?

Private Sub cmbCodParada_LostFocus()

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strCriteria As String
Dim strCriteria_1 As String

If Me!Maquina = "" Then
MsgBox "Debe seleccionar la Maquina"
Maquina.SetFocus
Else
If Me!cmbCodParada < 999999 Then
strCriteria_1 = "Select * from Codigos where Maquina =" & "'" & Me!Maquina & "'" & ";"
strCriteria = "[Causa de perdidas] = " & Me!cmbCodParada
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strCriteria_1, dbOpenDynaset)
rst.FindFirst (strCriteria)
If rst.NoMatch Then
MsgBox "El CÓDIGO DE PARARADA INGRESADO es INEXISTENTE, intente nuevamente."
cmbCodParada.SetFocus
cmbCodParada.Value = 0
Else: txtTiempo.SetFocus
rst.Close
Set rst = Nothing
Set dbs = Nothing
End If
Else
strCriteria_1 = "Select * from maquinas_con_velocidad_x_material where Maquina =" & "'" & Me!Maquina & "'" & ";"
strCriteria = "[Material] = " & Me!cmbCodParada
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strCriteria_1, dbOpenDynaset)

3004020 rst.FindFirst (strCriteria)
If rst.NoMatch Then
MsgBox "El CÓDIGO DE MATERIAL ingresado es INEXISTENTE, intente nuevamente."
cmbCodParada.SetFocus
cmbCodParada.Value = 0
Else: txtTiempo.SetFocus
rst.Close
Set rst = Nothing
Set dbs = Nothing
End If
End If

End If

End Sub