Option Explicit
 
Dim adoConnection As New ADODB.Connection
Dim adoRecordSet As New ADODB.Recordset
Dim adoSQL As String
 
Private Sub Command1_Click()
 
Set adoConnection = New ADODB.Connection
Set adoRecordSet = New ADODB.Recordset
 
'### VERBINDUNG ZUR DATENBANK AUFBAUEN ###
   With adoConnection
      .Provider = "SQLOLEDB.1"
      .Properties("Persist Security Info").Value = False
      .Properties("User ID").Value = "LOGINNAME"
      .Properties("Password").Value = "PASSWORT"
      .Properties("Initial Catalog").Value = "DATENBANK-NAME"
      .Properties("Data Source").Value = "SERVERNAME"
      .Open
   End With
 
'Recordset erstellen
adoRecordSet.Open "SELECT ComputerName FROM StorageNode WHERE ComputerName = '" _
  & strAlterName & "' AND StorageNodeKey = '1'", adoConnection, adOpenKeyset, _
  adLockBatchOptimistic
'Prüfen, wie viele Datensätze es gibt
Debug.Print "Anzahl gefundener Datensätze: "; adoRecordSet.RecordCount
 
'Wert ändern aus der DB
strSQL = "UPDATE StorageNode SET ComputerName = '" & strNeuerName & "' WHERE" & _
  "ComputerName = '" & strAlterName & "' AND StorageNodeKey = '1';"
adoConnection.Execute strSQL, lngAffected, adCmdText
Debug.Print "Es wurden " & CStr(lngAffected) & " Datensätze geändert."
 
'Recordset löschen
adoRecordSet.Close
Set adoRecordSet = Nothing
 
'### TRENNEN DER VERBINDUNG ZUR DATENBANK ###
adoConnection.Close
Set adoConnection = Nothing
 
End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.