数据库连接中断--->急救！

Question

请大家帮帮忙，有谁遇到类似问题，求助谢谢。
数据库服务器：XP 操作系统。
客户端程序：2000 操作系统。
现象：在客户端(2000操作系统)中运行VB程序，即访问数据库服务器，打开数据库，提示：[Micsofoft][ODBC SQL Server Driver][Named Pipes]连接中断。
访问数据库代码如下：
dim strTmp as String
dim conData As New adodb.Connection
strTmp = "Driver={SQL Server};" & _
            "Serve=192.168.0.1;" & _
            "UID=sa;" & _
            "PWD=sa;" & _
            "Database=dbwork"
conData .ConnectionString = strTmp
conData .ConnectionTimeout = 30
conData .CommandTimeout = 30 
conData .Open