error lógico - busqueda con Join en sql express, el registro no existe.

Question

Private Sub btnBuscarLibro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscarLibro.Click
        If txtLibro.Text.Length = 0 Then
            MessageBox.Show("Rellena todos los campos")
        Else

            Dim query As String = "select * from libro, ejemplar where libro.libroNombre = @libro and libro.idLibro=ejemplar.libro_idLibro"
            Dim cmd As New SqlCommand(query, cnn)
            cmd.Parameters.AddWithValue("@libro", txtLibro.Text)

            Dim DAP As New SqlDataAdapter(cmd)
            Dim dt As New DataTable
            Dim dt2 As New DataTable
            DAP.Fill(dt)
            DAP.Fill(dt2)

            If dt.Rows.Count <> 0 Then
                Dim campo As DataRow = dt.Rows(0)
                Dim campo1 As DataRow = dt2.Rows(0)

                txtIDLibro.Text = CStr(campo(0))
                txtIDEjemplar.Text = CStr(campo1(0))

            Else
                MessageBox.Show("El registro no existe")
            End If
        End If
    End Sub

ese es el código y el problema es el planteado en el enunciado, probablemente se deba a mi conocimiento casi nulo en la utilización de parámetros, pero creo que no realiza la consulta que deseo, espero me puedan ayudar, supongo que es un error o en la consulta o en los DAP declarados, saludos.