Filter One Combobox based on selection in another combobox (1 Viewer)

Private Sub cbo_Start_AfterUpdate()

Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection 'set the active connection
Dim rstStart As New ADODB.Recordset
rstStart.ActiveConnection = cnn1

Dim sqlStart As String
Dim selectedStart As Date

sqlStart = "SELECT * FROM qry_StartEnd WHERE StartEnd_Name = '" & Me.cbo_Start.Value & "'"
rstStart.Open sqlStart

    With rstStart
        .MoveFirst
        selectedStart = rstStart.Fields("StartEnd_Start").Value
    End With
    
    cbo_End.RowSource = "SELECT * FROM qry_StartEnd WHERE StartEnd_Start > #" & CStr(selectedStart) & "#"

rstStart.Close
Set resStart = Nothing
cnn1.Close
Set cnn1 = Nothing

End Sub