SQL com variáveis

Que erro acusou?

As variaveis estão vindo com valores corretos?

Ele esta selecionando essa parte da SQL:

SELECT * from "

Dizendo que não esta correto os parametros

Aparentemente as variaveis estão vazias

Onde está colocando seus valores?

Eu estou querendo criar funções com as SQL para não precisar escrever toda hora de novo para otimizar os códigos.

Fiz da Seguinte maneira

Public Function SQLSelect(SQLTabela As String, SQLColuna As String, VariavelConsulta As String)
"SELECT * from " & SQLTabela & " where " & SQLColuna & " = " & VariavelConsulta & ""
End Function

E como está chamando?

SQLSelect(CadClientes,Codigo,txtCodigo)

Estou tentando criar outras Funções também

Tem muito lugares com estruturas iguais porem com formularios diferentes, Objetos ADODC diferentes.

Um exemplo é isso:

frmConsultaOrdem.ADODCSoma.CommandType = adCmdText
frmConsultaOrdem.ADODCSoma.RecordSource = SQL
frmConsultaOrdem.ADODCSoma.Refresh

frmConsultaCadastro.ADODCCliente.CommandType = adCmdText
frmConsultaCadastro.ADODCCliente.RecordSource = SQL
frmConsultaCadastro.ADODCCliente.Refresh

Queria poder criar Funções para manter as estruturas e ir mudando só as diferenças deles.

Para assim usar essas estruturas como ferramentas para meus projetos

Não sei se isso é possível.

A variável de consulta é uma String?

Sim, mas o problema esta ja no começo.

Naquelas aspas como descrevi acima

Então estão faltando aspas simples ( ' ) no seu código.

"SELECT * from " & SQLTabela & " where " & SQLColuna & " = '" & VariavelConsulta & "'"

Vlw Pessoal consegui.

Public Function SQLSelect(SQLTabela As String, SQLColuna As String, VariavelConsulta As String)
Abre_Conexao

 SQL = "SELECT * from " & SQLTabela & " where " & SQLColuna & " = '" & VariavelConsulta & "'"
 Tabela.Open SQL, conexao, adOpenForwardOnly, adLockReadOnly
 If Not Tabela.EOF Then
 SQLSelect = True
 Else
 SQLSelect = False
 End If
 Fecha_Conexao

Para chamar:

Private Sub cmdNovo_Click()
If txtCPF = "" Then
MsgBox "Informe o CPF do Cliente!", vbInformation, "Consulta"
Else
If SQLSelect("CadClientes", "CPF", txtCPF) = True Then
cmdNovo.Visible = False
PreencheDadosOrdem
cmdLimpar.Visible = True
txtCPF.Enabled = False
cmdSalvar.Enabled = True
cmdConsultar.Enabled = False
Else
MsgBox "Cliente não cadastrado!", vbInformation, "Consulta"
End If
End If
End Sub