Cn.connectionstring="provider=SQLOLEDB;DATA SOURCE=(local);INITIAL CATALOG=MIDB;USER ID=Hacktor;PASSWORD=123456;DNS=MIDNS;"

[Servidor]
HacktorSRV
[IP]
27.0.0.1
[Admin]
Hacktor

Dim Cn As ADODB.Connection, Cmd As ADODB.Command, Rec As ADODB.Recordset
Dim Sql As String

Private Sub Command1_Click()
'Para sql server
cn.connectionstring="provider=SQLOLEDB;DATA SOURCE=Nom Servidor;INITIAL CATALOG=Base de datos;USER ID=usuario sql;PASSWORD=pass usuario sql;DNS=;"

'Para access
cn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ruta y nom del archivo access"

cn.cursorlocation=adUseClient
cn.open
Sql = "UPDATE dbo.MITABLA SET datos = '1' where memb = 'Hacktor'"
set rec=Cn.Execute(sql, , adCmdText)
End Sub

Select Count(*) As Conteo From CDRoom Where Titulo CDRoom= '" & txtTituloCDRoom.Text & "'"

app.path & "\bd.mdb"

Select campo=max(campo)+1 from tabla

Private letra As String
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  letra = ""
  If KeyCode = 46 Then
    letra = "p"
  End If
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  If Len(letra) > 0 Then Text1.Text = letra
End Sub

set ObjRs2 = Createobject("ADODB.Recordset")