Por ejemplo con ADO:
			Código [Seleccionar] 
Dim cn as New ADODB.Connection
cn.Open "Driver={SQL Server};Server=MyServerName; Database=myDatabaseName; Uid=myUsername; Pwd=myPassword;"
				
 donde viste on error resume next e loko  
 bueno no te diste cuenta ejjeje