Hola a todos, tengo la sig. Funcion
Imports System.Data.SqlClient
Public Function RetornarCodigo() As Integer
Dim Codigo As Integer
Dim Sql As String
Dim DS As New DataSet
Dim DA As SqlDataAdapter
Dim Conexion As String = "Data Source=.SQLEXPRESS; User Id=sa; Initial Catalog=NeuSuc; Integrated Security=True;"
DS.Reset()
Sql = " Select Max(Codigo_oper) from Operadores where Identificador='" & Me.TB_Identificador.Text & "'"
DA = New SqlDataAdapter(Sql, Conexion)
DA.Fill(DS, "CodigoSiguiente")
If DS.Tables("CodigoSiguiente").Rows.Count = 1 Then
Codigo = DS.Tables("CodigoSiguiente").Rows(0).Item("Codigo_oper")
End If
Return Codigo
End Function
Ahora cuando llamo a la Funcion me tira este Error
No se puede abrir la base de datos "NeuSuc" solicitada por el inicio de sesión. Error en el incicio de sesión
Error en el inicio de sesión del usuario 'usuario1¬usuario'.
Les comento la base de datos es local de SQL excluida al proyecto con visual studio 2008.
Muchas gracias de antemano.
