Private Function Get_User_State(User As String)
' get the status off a given accountname
Set rs = New Recordset
Set rs.ActiveConnection = DB
 
rs.Open "SELECT onlinestatus FROM friends WHERE acc = '" & User & "'"
 
Set bColl.DataSource = rs
bColl.Add Label3, "Caption", "onlinestatus"
 
If Label3.Caption <> "" Then
    If Label3.Caption = "1" Then Get_User_State = 1
    If Label3.Caption = "0" Then Get_User_State = 0
Else
    Get_User_State = 3
End If
End Function