I have added ADODB connection, so I think they should be connected. However I still need to tick a single line after hitting the select all button, in order for the select all to work.
Private Sub Check45_Click()
Dim rst As ADODB.Recordset
'sel = "0"
If Check45.Value = True Then
sel = "1"...