Good afternoon, I just developed a project using this code and worked without any problem:

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Cmd As...