Dim rst As New adodb.Recordset, strsql As String
strsql = "select * from tbf_vereine where vereins_id=" & lngvereinsid
rst.CursorLocation = adUseClient
rst.Open strsql, objcon, adOpenStatic, adLockReadOnly
If rst.RecordCount = 0 Then
    rst.Close
    Set rst = Nothing
    Exit Sub
End If
With frm
    .txtstrasse.Value = rst!strasse
    .txttelefax.Value = rst!Fax
    .txttelefon.Value = rst!telefon
    .txtemail.Value = rst!EMail
    .txtinternet.Value = rst!Internettext
    .txtort = rst!ort
    If rst![noch existent] = True Then
        .optexistent(0).Value = True
    Else
        .optexistent(1).Value = True
    End If
End With
rst.Close
Set rst = Nothing