How to connect to SQLExpress in VB6 and execute stored procedure

This snippet shows how to connect to SQLExpress and execute stored procedure.

Private Sub Form_Load()
Dim con As String
con = "Driver={SQL Native Client};Server=changethis_servername;Database=changethis_databasename; Trusted_Connection=yes;"

Dim cmd As New ADODB.Command
cmd.ActiveConnection = con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "yourstoredprocedurename"

Dim rs1 As Recordset
    Set rs1 = cmd.Execute

If Not rs1.EOF Then
Text1.Text = rs1.Fields(1)
Text2.Text = rs1.Fields(2)
End If

cmd.ActiveConnection = Nothing
End Sub