Dim dtr As SqlDataReader
      Dim ss As String

      vStudentID = Microsoft.VisualBasic.Right("000" & vStudentID, 7)

      ss = "insert into YourFile (StudentID, Term, LastName, FirstName) "
      ss = ss & " values "
      ss = ss & " (@StudentID, @Term, @LastName, @FirstName) "

      Dim conn As New SqlConnection(ConnStr)
      Dim Cmd As New SqlCommand(ss, conn)

      With Cmd.Parameters
         .Add(New SqlParameter("@StudentID", vStudentID))
         .Add(New SqlParameter("@Term", vTerm))
         .Add(New SqlParameter("@LastName", vLastName))
         .Add(New SqlParameter("@FirstName", vFirstName))
      End With

      conn.Open()
      dtr = Cmd.ExecuteReader()

Hosted by www.Geocities.ws