WebService access

Hej Jeg er igang med at lave en webservice og da jeg udvikler den på min server som skal køre den, virker den men når jeg så vil bruge den så virker den ikke så melder den database fejl

håber der er en der kan finde ud af hvorfor den giver DB FEJL når jeg køre på den ude fra men virker når jeg køre den fra min server.

mens GetSession virker..

Min kode
    <WebMethod()> _
    Public Function CreateSession(ByVal MySession As String, ByVal SessionData As String) As String
        Dim MySessionNr As Double
        If MySession.Length > 0 Then
            MySession = MySession.Replace(" ", "")
            Double.TryParse(MySession, MySessionNr)
        Else
            Dim NewSession As System.Random = New System.Random()
            MySessionNr = NewSession.Next(100000000, 999999999)
        End If
        Dim DBConn As New OleDbConnection(String.Format("Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};", HttpContext.Current.Server.MapPath("\App_Data\Sessiondb.accdb")))
        Dim DBcomm As New OleDbCommand
        Dim DBupda As New OleDbCommand
        Dim DBInde As New OleDbCommand
        DBcomm.Connection = DBConn
        Try
            DBConn.Open()
            DBcomm.CommandText = "SELECT RemoteData FROM RemoteSession WHERE RemoteNr=" & MySessionNr & ";"
            Dim DBReader As OleDbDataReader = DBcomm.ExecuteReader
            If DBReader.HasRows Then  ' (Not reader Is Nothing)
                DBupda.CommandType = CommandType.Text
                DBupda.Connection = DBConn
                DBupda.CommandText = "UPDATE RemoteSession SET RemoteData='" & SessionData & "' WHERE RemoteNr=" & MySessionNr & ";"
                DBupda.ExecuteNonQuery()
                'Do While DBReader.Read
                'Me.txtName.Text = DBReader.Item("RemoteData").ToString
                'Loop
                DBReader.Close()
            Else
                DBInde.CommandType = CommandType.Text
                DBInde.CommandText = "INSERT INTO RemoteSession(RemoteNr,RemoteData) VALUES ('" & MySessionNr & "','" & SessionData & "');"
                DBInde.Connection = DBConn
                DBInde.ExecuteNonQuery()
                DBInde.Clone()
            End If
            Return System.Convert.ToString(MySessionNr)
        Catch ex As Exception
            DBConn.Close()
            Return "DB FEJL"
        End Try
    End Function


    <WebMethod()> _
    Public Function GetSession(ByVal MySession As String) As String
        Dim DBConn As New OleDbConnection(String.Format("Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};", HttpContext.Current.Server.MapPath("\App_Data\Sessiondb.accdb")))
        Dim DBcomm As New OleDbCommand
        DBcomm.Connection = DBConn
        Try
            DBConn.Open()
            DBcomm.CommandText = "SELECT RemoteData FROM RemoteSession WHERE RemoteNr=" & MySession & ";"
            Dim DBReader As OleDbDataReader = DBcomm.ExecuteReader
            If DBReader.HasRows Then  ' (Not reader Is Nothing)
                Do While DBReader.Read
                    Return DBReader.Item("RemoteData").ToString
                Loop
            Else
                Return "n/a"
            End If
            DBConn.Close()
        Catch ex As Exception
            DBConn.Close()
            Return "Fejl"
        End Try

    End Function