Timeout Error In VB6/SQL2000

I've created a stored procedure in SQL 2000. I run an execute statement through VB6 and then after a short while, I have a timeout expired message box appearing. My connection string is as follows :-

Option Explicit
Public PortCis As New ADODB.Connection

Private Sub Form_Load()
Dim SQL As String

Set Form1.PortCis = Nothing
PortCis.Open "Provider=SQLOLEDB.1;Server=hqcsql02hqcsql02;" & "Database=Statements;Trusted_Connection=Yes;Connect ion Timeout=30"

SQL = " exec PortCis.dbo.portcis_getbdastatement_statementsdb '200312'"
PortCis.Execute SQL
End

End Sub

When the timeout error occurs, I check in the table that it is populating and find that it has added 365 records out of a possible 100,000.

What am I doing wrong ?

Thanks