Question Vb syntax counterpart of VB.Net

[priyamtheone]

What's the VB6 counterpart of the following codes?

To insert a record in database with command object parameters:

dim strSql as string
strSql = "Insert Into tblEmployees (EmpName,DeptartmentID,JoinDate) Values ('" & _
txtName.Text & "'," & Val(cboDepartment.Value) & ",@JoinDate)"
com = CreateCommand(strSql)

com.Parameters.Add(New SqlParameter("@JoinDate", SqlDbType.DateTime))
If (dtpJoinDate.Checked) Then
	com.Parameters("@JoinDate").Value = Convert.ToDateTime(dtpJoinDate.Value)
Else
	com.Parameters("@JoinDate").Value = DBNull.Value
End If

If com.ExecuteNonQuery = 1 Then
	MsgBox("Record saved.")
End If

To obtain a record from database:

Dim drd As SqlDataReader
strSql = "Select EmpName,DeptID,JoinDate From tblEmployees Where EmpID=1001"
drd = CreateReader(strSql)
If drd.Read Then
	txtName.Text = drd("EmpName")
	cboDepartment.Value = drd("DepartmentID")

	If IsDBNull(drd("JoinDate")) Then
		dtpJoinDate.ResetText()
		dtpJoinDate.Checked = False
	Else
		dtpJoinDate.Value = drd("JoinDate")
	End If
End If
drd.Close()