rs.fields, recordcount=0 e order by não funcionam

Boas pessoal, estou com algumas duvidas neste novo projecto e gostaria de saber se alguem percebe o porque destes erros.

1) Num formulário eu tenho um campo chamado data_nasc e eu dou três selects dia,mês e ano, eu gostava que os 3 valores aparececem separados por - no campo data_nasc

esta é a minha ideia mas deve estar algo mal.

rs.fields("data_nasc")=request.form("Date_Birth_day")&"-"&request.form("Date_Birth_month")&"-"&request.form("Date_Birth_year")

2) Nesta situação a bd nao da nada apesar de eu ter la uns 16 users.

podem ver o resultado do codigo em baixo aqui:Clique aqui

set conn = CreateObject ("ADODB.Connection")
conn.Provider = "microsoft.jet.oledb.4.0"
conn.Open Server.MapPath ("db/12345678.mdb")
set rs = Server.CreateObject ("ADODB.Recordset")
instotal = "SELECT * FROM usuários WHERE '" & tbl & "' LIKE '" & tbl1 & "'"
rs.open instotal, conn, 1

Response.Write "(" & instotal & ")"
%> <br>% <
Response.Write "(" & rs.RecordCount & ")"

3) De modo a poder ordenar alfabeticamente fiz isto:

Username<a href="viewuser.asp?tbl2=username&dir=ASC"><img src="images/up.jpg"></a>
<a href="viewuser.asp?tbl2=username&dir=DESC"><img src="images/down.jpg"></a>

A conexao esta feita assim e apesar de aparecerem os campos ele nao faz nada.

Podem ver aqui:Clique aqui

<%
Dim tbl
Dim dir
tbl2= request.queryString("tbl2")
dir= request.queryString("dir")

set conn = CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.Oledb.4.0"
conn.Open Server.MapPath("db/12345678.mdb")
set rs=server.createobject("adodb.recordset")
instotal = "select * from users ORDER BY '" & tbl& " " & dir& "' "
rs.open instotal,conn,3,3

Response.Write "("&rs.recordCount&")"

if rs.recordcount > 0 then

%>

Peço desculpa pelo longo post e por abordar 3 questões mas penso que seria melhor que estar a abrir 3 post de uma vez.

Obrigado