[Resolvido]RowSource em caixa de combinação

Boa tarde.
Estou iniciando um projeto, porém este, não gostaria que as tabelas fossem vinculadas, pois vou usa-lo via internet.
o projeto conecta o access ao sql server express 2008. Eu fiz diversas pesquisas dentro do site e fora dele, parte deste código consegui no site do avelino. "usando access".

a conexao funcionou perfeitamente, mas na hora de alimentar a origem da linha, fica em branco e nao gera nenhum erro.

Código:


Public Function ConIPStrOpen()

Dim id As String, pass As String
Dim Nome As String, Sexo As String
DoCmd.Hourglass True

strCaminho = "SERVER\SQLPEXPRESS,1433"
strCaminhoBD = "BDTESTE"
id = "userteste"
pass = "teste12345"
strConect = "Provider=SQLNCLI10;Server=" & strCaminho & ";Database=" & strCaminhoBD & ";Uid=" & id & ";Pwd=" & pass & ";"
Consql.Open strConect

strSelect = "SELECT * FROM [tbl Usuarios];"
Me.txtUser.RowSource = strSelect
Me.txtUser.Requery



Consql.Close
Set Consql = Nothing
DoCmd.Hourglass False
End Function



alguém teria uma idéia?

desde já agradeço muito.

Peço desculpas.... mas achei meu erro, mas se alguém souber de uma forma em que a rowsourcetype seja = a tabela / Consulta, eu mudo no meu projeto.
Ainda estudando o código do Avelino.

faltou eu fazer ests linhas:

Código:


strSelect = "SELECT * FROM [tbl Usuarios];"
rs1.Open strSelect, Consql, adOpenDynamic, adLockPessimistic

Do While Not rs1.EOF

Me.txtUser.RowSourceType = "Value List"
Me.txtUser.AddItem rs1.Fields(0).Value & ";" & rs1.Fields(1).Value
rs1.MoveNext

Loop

rs1.Close
Set rs1 = Nothing


Logo o código ficaria assim:

Código:

Public Function ConIPStrOpen()

Dim id As String, pass As String
DoCmd.Hourglass True

strCaminho = "SERVER\SQLPEXPRESS,1433"
strCaminhoBD = "BDTESTE"
id = "userteste"
pass = "teste12345"
strConect = "Provider=SQLNCLI10;Server=" & strCaminho & ";Database=" & strCaminhoBD & ";Uid=" & id & ";Pwd=" & pass & ";"
Consql.Open strConect

strSelect = "SELECT * FROM [tbl Usuarios];"
rs1.Open strSelect, Consql, adOpenDynamic, adLockPessimistic

Do While Not rs1.EOF

Me.txtUser.RowSourceType = "Value List"
Me.txtUser.AddItem rs1.Fields(0).Value & ";" & rs1.Fields(1).Value
rs1.MoveNext

Loop

rs1.Close
Set rs1 = Nothing

Consql.Close
Set Consql = Nothing
DoCmd.Hourglass False
End Function


Bom dia.
Bom ontem eu pensei que havia dado um ponto final neste assunto. hehehe. mas percebi que cometi um erro.
Pois quando eu utilizo o AddItem, nao consigo filtrar para evitar que apareçam alguns campos, por exemplo:

Nome de usuario Ativo
Adao S
Eva S
Joao N
Maria S

neste caso acima, gostaria que ele carregasse somente os ativos (S), e o sistema preenche com todos os dados.
tentei a linha desta forma:
Me.txtUser.RowSource = "SELECT Cod_Usuario, Nome, CPF, Inativo FROM [tbl Usuarios] WHERE ((([tbl Usuarios].Inativo)=False)) ORDER BY Nome;"

Desde já obrigado.

Bom dia a todos.
Nossa... peço novamente desculpas a todos, já descobri o erro... e sempre depois que posto aqui.

eu só tive que mudar a linha de cima, onde define o strSelect.

strSelect = "SELECT * FROM [tbl Usuarios] WHERE ((([tbl Usuarios].Inativo)=0)) ORDER BY Nome;"

obrigado a todos.