Visual Basic para Aplicaciones - diferencia entre vb 6 y vb 2015 en recordset

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    ' connection and recordset variables 

    Dim rs As ADODB.Recordset

    Dim Cn As ADODB.Connection

    Dim sSQL As String

    Set rs = = New ADODB.Connection

    Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Telesalud.TSCR-SOP-001\Documents\Telesalud.mdb"

    Cn.Open()

    Set rs = New ADODB.Recordset

    sSQL = "SELECT Municipio.nom_mun FROM Municipio WHERE (((Municipio.dep_mun)='BENI')) ORDER BY Municipio.nom_mun;"

    rs.ActiveConnection = Cn

    rs.Source = (sSQL)

    rs.Open()

    rs.MoveFirst()

    While Not rs.EOF

        ComboBox4.Items.Add(rs.Fields("nom_mun"))

        rs.MoveNext()

    End While

    rs.Close()

    set rs = Nothing

    Cn.Close()

    set Cn = Nothing

End Sub