I Want Help On Connection Error With Sql Server

I Have Program With VB6 And SQL Server And Work Ok . But the Problem is when i Stop the server when the client is connected to it and run server again this message appear to me " DBNETLIB ConnectionWrite (WrapperWrite()) General network error .check your network documentation . " ... And This problem appear if i work on the server and stop SQl Service and Start it Again .. My connection With dataenvironement and on dataenvironment intialization i put the connection string . i want to solve this problem

My connection String is :
ServarName = "MyServerName"

DataEnvironment1.Connection1.ConnectionString = "Provider=SQLOLEDB.1;OLE DB Services = -2 ;Password=0000;Persist Security Info=True; User ID=sa;Initial Catalog=TestDB;Data Source = '" & ServarName & "' "