SoloCodigo

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.

Hola a todos, en el evento KeyPress de un TextBox tengo el siguiente codigo

e.Handled = Numeros(Me.TB_ID.Text, e.KeyChar, False) 'Funcion que valida solo números enteros

If Not Me.TB_ID.Text = "" And e.KeyChar = Chr(13) Then
IdBindingSource.Filter = "ID = " & Me.TB_ID.Text
Else
If Me.TB_ID.Text = "" And e.KeyChar = Chr(13) Then
Tablas.Show()
End If
End If
End Sub

Este codigo funciona perfectamente, cuando el TextBox esta vacío me abre el formulario Tablas y cuando coloco un valor numerico me filtra todo el formulario, hasta aca todo perfecto. Ahora lo que necesito es que me tire un MsgBox para que cuando no se encuentre ningun registro con el número ingresado (No se puede filtrar el formulario) me devuelva el MsgBox con el aviso, pero no se como adaptarlo al codigo que les pase. Necesitaría que alguien me lo pueda adaptar de tal manera que siga funcionando todo lo anterior.
Muchas gracias