Private Sub Timer1_Timer()
  If Clipboard.GetFormat(vbCFBitmap) Or Clipboard.GetFormat(vbCFDib) Then
    Call Clipboard.Clear
  End If
End Sub

Dim myConnection As New SQLconnection(myConnectionString)
Dim myInsertQuery As String = "INSERT INTO usuario (name, apellidos) Values('Prueba', 'Solo Prueba')"
Dim myCommand As New SqlComman(myInsertQuery)

Dim myConnection As New Connection
Dim myInsertQuery As String
Dim myCommand As New Command

Set myConnection = SQLconnection(myConnectionString)
myInsertQuery = "INSERT INTO usuario (name, apellidos) Values('Prueba', 'Solo Prueba')"
Set myCommand = SqlComman(myInsertQuery)

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders