'Deklarationen
Dim meinSelektionskriterium As String
Dim meinSqlStatement As String
Dim meineID as String
Dim meinRs As ADODB.Recordset
 
'Hier kannst Du auch eine andere Zuweisung vornehmen,
'bspw. aus einem Feld einer Form
meineID = "2"
 
'SQL-Statement erstellen
meinSelektionskriterium = meineId
meinSqlStatement = "SELECT type FROM sony WHERE id = " & meinSelektionskriterium
 
'Recordset erstellen und öffnen
'Es wird unterstellt, dass der Feldinhalt von "id" eindeutig ist.
'Das oben erstellte SQL liefert dann genau einen Datensatz zurück.
Set meinRs = New ADODB.Recordset
With meinRs
    If .State = adStateOpen Then .Close
    .ActiveConnection = oConn
    .LockType = adLockOptimistic
    .Source = meinSqlStatement
    .Open
End With
 
'zu erstem Datensatz gehen und benötigten Wert zuweisen
With meinRs
    If .AbsolutePosition <> -1 Then
        .MoveFirst
        text1.text = CStr(.Fields("type").Value)
    End If
End With

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)