Buenos dias
Tengo un datagrid donde mostrar todos los datos en uns base de datos filtrando eso segun un codigo y una fecha. Los datos tendrian que aparecer despues de hacer intro habiendo indicado el codigo y la fecha.
Despues de esto el programa debe permitirme introducir mas datos desde un formulario y hacerlos aparecer en el datagrid si el codi y la fecha correpsonden con los indicados.

Pongo a continuacio el trozo de codigo que tengo para mostrar los datos en el grid.





Private Sub LlenarGrid()
Dim Cadena As String


Try
If Me.Datos_Linea.Tables("eqptreball") IsNot Nothing Then Me.Datos_Linea.Tables("eqptreball").Clear()


Cadena = "Select * from eqptreball "
Cadena += "where cod_prog = @cod_prog "
Cadena += "and data_treball =@data_treball "
Cadena += "order by cod_prog, data_treball"


Adaptador_Lineas3 = New SqlClient.SqlDataAdapter(Cadena, Cn1)
Dim Codi As Integer
Integer.TryParse(cod_prog.Text, Codi)
Adaptador_Lineas3.SelectCommand.Parameters.Add("@c od_prog", SqlDbType.Int).Value = Codi
Adaptador_Lineas3.SelectCommand.Parameters.Add("@d ata_treball", SqlDbType.DateTime).Value = Format(Me.data_treball.Value, "dd/MM/yyyy")


Comandos_Lineas3 = New SqlClient.SqlCommandBuilder(Adaptador_Lineas3)
Adaptador_Lineas3.Fill(Datos_Linea, "eqptreball")


G_Lineas.DataSource = Vi_Lineas
G_Lineas.DataMember = "eqptreball"


Catch ex As Exception
'do nothing
End Try


End Sub

Esto debo decir que no hace nada, pero deberia hacer aparecer los datos filtrados como he dicho segun el cod_prog y la data_treball.

Agradeceria alguna pista y/o la causa del posible error.

Gracias por adelantado