use weekday() function & looping to count day from monday-friday

note:
weekday() to check what day is it.
return value (cmiiw)
1 Sunday
2 Monday
3 Tuesday
4 Wednesday
5 Thursday
6 Friday
7 Saturday

use weekday() function & looping to count day from monday-friday

note:
weekday() to check what day is it.
return value (cmiiw)
1 Sunday
2 Monday
3 Tuesday
4 Wednesday
5 Thursday
6 Friday
7 Saturday

the code should be like this to run normally

Dim strUserName As String, strPassword As String
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset


Public Sub OpenCon()
    if con.state = 0 then
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\database\enrollment.mdb"
    end if
End Sub

Private Sub cmdlogin_Click()
OpenCon
rs.Open "SELECT * FROM [tbladmin] WHERE [username]= '" & txtUsername.Text & "'", con, adOpenStatic, adLockOptimistic

        If rs.RecordCount <> 0 Then
            If rs![Password] = txtPassword.Text Then
                If rs![user_type] = "Principal" Then
                         
                    MsgBox "The Principal has login", vbOKOnly + vbInformation, "LOGIN"
                        frmMain.Transaction.Visible = True
                        frmMain.Maintenance.Visible = True
                        frmMain.Reports.Visible = True
                        frmMain.Exit.Visible = True
                        frmMain.Others.Visible = True
                        frmMain.Files.Visible = True
                        Login1 = 1
                        'frmMain.Text3 = Text1.Text
                        'frmMain.Text4 = TimeValue(Now)
                    End If
           End If
      End If
End Sub

which line code shown error?

what database are you used?

just write (i assume form 2 appear with picturebox):

form2.[picturebox name].picture = loadpicture([picture path])

for example
picture box name : picture1
picture path name : C:\picture.jpg

then u should write like this

form2.picture1.picture = loadpicture("C:\picture.jpg")