Private Sub cboPartNumber_Change()
	Dim strTyped As String
	Dim strSelect As String
	strTyped = Nz(cboPartNumber.Text,"")
	If Len(strTyped) = 3 Then
		strSelect = "SELECT partNumber FROM tblParts " & _
			 "WHERE partNumber LIKE """ & strTyped & "*"" " & _
			 "ORDER BY partNumber;"
		cboPartNumber.RowSource = strSelect
	End If
End Sub