Hello, I have this problem, I hope you can help me, thanks.

See more:

Visual-Studio

I'm finishing a program which will help to keep records of payments and services a gym, is almost complete, I just have an error that is da.Fill (ds)
Which indicates to me: System.Data.OleDb.OleDbException (0x80040E10): Not specified values for some of the required parameters.

Translated by Google. Original text:

estoy terminando un programa el cual servirá para llevar los registros de pagos y servicios de un gimnasio, esta casi completo, solo me queda un error que es da.Fill(ds)
Donde me indica lo siguiente: System.Data.OleDb.OleDbException (0x80040E10): No se han especificado valores para algunos de los parámetros requeridos.

What I have tried:

Private Sub leepago()
    Dim id As Integer
    Dim s As String
    If DataGridPagos.RowCount > 1 Then
        id = DataGridPagos.Rows(DataGridServicio.CurrentRow.Index).Cells(0).Value.ToString()
    Else
        id = 0
    End If
    s = "SELECT * FROM PAGOS where idregistro = " & id
    con.Close()
    abrirdb()
    Dim da As New OleDbDataAdapter(s, con)
    Dim ds As New DataSet
    da.Fill(ds)
    DataGridPagos.DataSource = ds.Tables(0)
    DataGridPagos.Columns(0).Width = 0
    DataGridPagos.Columns(1).Width = 0
End Sub