ConnectionString 
    setConnectionString( "Provider=SQLOLEDB; Data Source=sqlserver02.e-dagaz.com.br; User ID=e_dagaz1; Password=marcos10203040; Initial Catalog=e_dagaz1")

Campo Data
           <input type="text" name="txtNome" id="txtNome" Size="60" maxlength="10" onkeypress="fnPermitirNumeros(this);maskData(this);" />
          
          
          
          Input
          <input type="text" name="txtNome" id="txtNome" Size="60" class="txt_Input" /> 
          
          
          
          ::Grid Pesquisa
                      <%
            
            Call SetGrid()
            
          
//Carrega dados no Grid com pesquia
public  Sub SetGrid()
Dim strQuery
Dim strWord 
       strWord = Request.QueryString("Search")


strQuery = "SELECT * FROM "
strQuery = strQuery & " AcaoProspeccao " 

set objDataBase = new DataBase

                        objDataBase.OpenConnection()
set dtbData = objDataBase.objConnection.Execute(strQuery)


if Not dtbData.eof Then 
   DrawGrid dtbData,selecaoval,"CodAcaoProspeccao","CodAcaoProspeccao,Nome,Ações","CodAcaoProspeccao,Nome,!SetButtonsGrid(CodAcaoProspeccao)","CodAcaoProspeccao,Nome,CodAcaoProspeccao",false,"Pesquisa",false
	
        Else
       Dim strTable  
           
		    Response.Write(setGridEmpty(GetConst("EMPTY_GRID")))
    End if
End Sub 
            
//Seta os parametros de ação
Public function SetButtonsGrid(ByVal cd)
    Dim strButtons
                      strButtons =   "<a href='#' onClick='location.href='?cd_acao=" & cd & "''><img " & getImage("Icons/Edit.gif" , "ALTERAR") &"   Class='Icons'></a>" 
                      strButtons = strButtons &"<a href='#' onClick='location.href='?cd_acao=" & cd & "''><img " & getImage("Icons/Cancel.gif" , "INATIVAR") &"   Class='Icons'></a>" 
                      strButtons = strButtons &"<a href='#' onClick='location.href='?cd_acao=" & cd & "''><img " & getImage("Icons/Print.gif" , "IMPRIMIR") &"   Class='Icons' ></a>" 
           Response.Write (strButtons)
End function 
            
             %>