Private Sub Form_Load()
Dim Con As ADODB.Connection
Dim rs As ADODB.Recordset

Set Con = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim CONEXION As String
CONEXION = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=NOMBREBD;Data Source=SERVIDOR"

Con.Open CONEXION
rs.Open "SELECT * FROM LININFCON", Con, adOpenKeyset, adLockOptimistic
rs.MoveLast
DataReport1.Sections(3).Controls("txt1").DataField = "CONID"
DataReport1.Show
Set DataReport1.DataSource = rs
End Sub

Regístrate y recibe un email semanal con los últimos trucos informáticos. Pulsa aquí!!

Este truco ha recibido 40 votaciones| Nota media: 7Selecciona tu Puntuación: