Conexion Sql

[Fann_Lavigne]

Tengo el siguiente problema con una plicacion VB 6, la cual la conecto con una base de datos Sql de la siguiente manera:

Código:

 Set Conexion = Nothing
        Set Rst = Nothing
        '
        ' Crear los objetos
        Set Conexion = New ADODB.Connection
        Set Rst = New ADODB.Recordset
        '
        ' abrir la base usando las credenciales de Windows
        'Conexion.Open "Provider=SqlOleDB; " & _
                "Initial Catalog=Almacen; " & _
                "Data Source=" & server & "; " & _
                "integrated security=SSPI; persist security info=True;"
        With Conexion
            .ConnectionString = "Provider=SqlOleDB; " & _
                                "Initial Catalog=Almacen; " & _
                                "Data Source=bee04amstd; " & _
                                "integrated security=SSPI; persist security info=True;"
            .ConnectionTimeout = 10
            .Open
        End With

Todo va bien hasta ahi, se konecta y hace todo lo ke kiero, el problema es ke, instale el sistema en un Widnows 2000 profesional, y todo jala bien, pero kuando reinicio Widnows, y abro el sistema ke konecta kon la base de datos, este me dice ke no hay acceso a la base de datos.

Solo pasa esto al reiniciar Windows, si instalo de nuevo el programa, se konecta muy bien.

alguien sabe ke esta pasando?