Código: vb.netSub queryString() Dim objConn1 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C: ....... /prueba.mdb")Dim objQue As New OleDbCommand Dim targetURL As StringDim tem As String = "SELECT MAX (Id_cliente) FROM cliente;" objQue = New OleDbCommand(tem, objConn1) objConn1.Open() tem = objQue.ExecuteNonQuery().ToString objConn1.Close() targetURL = "default2.aspx?" targetURL &= "tem=" & tem.Trim Response.Redirect(targetURL) End Sub
Código: vb.netProtected Sub TextIdClie_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) TextIdClie.Text = Request.QueryString("tem").ToString() End Sub