Visual Basic - dias de la semana

hola, tengo una tabla con los dias de la semana (lunes, martes... domingo) con campos si/no, lo q necesito sabes es como puedo saber desde un formulario q campo/s de la tabla estan en true y se corresponden con el dia actual. gracias y espero me respondan.

Hola, Daniel!!!

Lo primero que debes hacer es decirme como esta estrcuturada tu tabla.
Tienes los nombres de los campos con los dias de la semana y cada campo es si/no o lo tienes 2 campos uno dia con los dias de la semana y otro con si/no

Explicate bien.

hola, tengo 7 campos en la tabla cuyos nombres son los dias de la semana, y todos son si/no. gracias

Hola, Daniel!!

Dim cn As New adodb.connection
Dim rs As New adodb.Recordset

'con esto puedes saber cuantos estan en true y cuantos en false
Private Sub Command1_Click()
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i) = True Then
MsgBox rs.Fields(i).Name & " true"
Else
MsgBox rs.Fields(i).Name & " false"
End If
Next
End Sub

'con esto puedes saber que campo coincide con el dia de la semana
Private Sub Command2_Click()
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i).Name = Format(Date, "dddd") Then
MsgBox rs.Fields(i).Name & " = " & Format(Date, "dddd")
Else
MsgBox rs.Fields(i).Name & " <> " & Format(Date, "dddd")
End If
Next
End Sub

Private Sub Command3_Click()
MsgBox Format(Date, "dddd")
End Sub

'esto es para conectarse a la BD y traer los datos en un recordset
Private Sub Form_Load()
'Set cn = New adodb.connection
'Set rs = New adodb.Recordset

'cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;database=C:\DATOS.MDB;Persist Security Info=False"
'cn.Open

'rs.CursorLocation = adUseClient
'rs.Open "select *from tabla", cn
End Sub