error in database openen

[ellvini]

objcommand.CommandText = "select * from tbldagen where users = " & Label2.Text
            objcommand.Connection.Open()
            objcommand.ExecuteNonQuery()
            Dim objdatareader3 As OleDbDataReader = objcommand.ExecuteReader
            Do While objdatareader3.Read
                If count < thedate + 1 Then
                    For i As Byte = 0 To thedate
                        If Not objdatareader3("dagnummer") = i Then
[COLOR="Red"]                            objcommand.CommandText = "insert into tbldagen (users,dagnummer) values ('" & Me.Label2.Text & "','" & i & "')"

                            objcommand.Connection.Open()
                            objcommand.ExecuteNonQuery()
                            objcommand.Connection.Close()[/COLOR]
                        End If
                    Next

                End If
            Loop
            objdatareader3.Close()
            objcommand.Connection.Close()
        End If

ik ben bezig met een scriptje om te kijke of iets dat niet in de database voorkomt moet toegevoegd worden maar ik krijg een error dat er al een objcommand geopend is en dat ik die eerst moet sluite kan iemand mij helpe bij het rode gedeelte geeft die error danku