what is tblCompany and cCompName a variables?
then your sql missing more then few &
strSQL = "Select * From " & tblCompany & _
" Where " & cCompName & " Like '" & cmbCmpName.Text & "*'"
i you use Like then mayby you can use *