How to use cmd.parameters.add("@ID") SQL, VB.NET

That's maybe because you are trying to add parameters using the statement of the adapter. Try this:

Dim idValue As Int = Convert.ToInt32(TextBox1.Text)
Dim dt As DataTable = New DataTable()  
Dim connect As String = "Data Source=DESKTOP-D32ONKB;Initial Catalog=Attendance;Integrated Security=True"
Using conn As New SqlConnection(connect)        
    Dim sql As String = "SELECT ID,Name,Class,Date FROM stuattrecordAMPM where ID=@ID"
    Using command As New SqlCommand(sql, conn)
        command.Parameters.Add("@ID", SqlDbType.Int).Value = idValue
            Using adapter As New SqlDataAdapter(command)                
                adapter.Fill(dt)                
            End Using            
    End Using
End Using
Dim i As Integer = 0
For i = 0 To dt.Rows.Count - 1
    Dim sy As String = dt.Rows(i).Item(0).ToString
Next
TextBox1.Text = dt(0)(0)

If you want to change the way you using to parse string to int:

Dim idValue As Int = Integer.Parse(TextBox1.Text)
    Dim dt As DataTable = New DataTable()  
    Dim connect As String = "Data Source=DESKTOP-D32ONKB;Initial Catalog=Attendance;Integrated Security=True"
    Using conn As New SqlConnection(connect)        
        Dim sql As String = "SELECT ID,Name,Class,Date FROM stuattrecordAMPM where ID=@ID"
        Using command As New SqlCommand(sql, conn)
            command.Parameters.AddWithValue("ID", idValue)
                Using adapter As New SqlDataAdapter(command)                
                    adapter.Fill(dt)                
                End Using            
        End Using
    End Using
    Dim i As Integer = 0
    For i = 0 To dt.Rows.Count - 1
        Dim sy As String = dt.Rows(i).Item(0).ToString
    Next
    TextBox1.Text = dt(0)(0)

It looks like in your broken code you need/want to have multiple "id" or more than one value. You can do this, but you ALSO then have to add the parameters to the source SQL string.

You can't just add, or have multiple @ID values for the one "@ID". If you want more than one ID value in the same SQL query, then you have to add multiple "@id1" then "@id2" and so on to the SQL text for this to work.

If you have one "@ID" then fine.

However, if you have say id 2, 134, 222, then you would have to add each parameter to the SQL string.

You can do it this way:

 dim strSQL as string = "SELECT * FROM MyTable"
 dim strWhere as string = ""

 dim cmdSQL as New Sqlcommand("", new Sqlconnection("con string here")

  ' add first @id
  strWhere = "@ID1"
  cmd.SQL.Parameters.Add("@ID1", SqlDbType.Int).Value = 124

  ' add 2nd @!id
  strWhere &= ",@ID2"
  cmd.SQL.Parameters.Add("@ID2", SqlDbType.Int).Value = 456

  ' and so on and so on
  cmdSQL.CommandText = strSQL & " WHERE ID IN (" & strWhere & ")"
  dim rstData as new DataTable()
  cmdSQL.connection.Open()
  rstData.Load(cmdSQL.ExecuteReader())

Note VERY interesting that you can create the SQL command object, and are 100% free to add as many new parameters as possible to the cmdSQL object, and EVEN do so without having the SQL command/text set for the SQL command object.

However, you eventually will have to setup/provide/have the sql shoved into that command object. So, build up the multiple "@id1, @id2" etc., and then shove that whole correct SQL string into the cmdSQL object, and it will work.

However, as noted, you are free to add as many parameters to the cmdSQL object, and even do so without having the SQL made/set/created for the cmdSQL object. They thus can be created 100% independent of the existing sql string/text (or better said lack of that SQL string during the parameter adding process).