Transfering Data from VB to Excel

I wrote a program to interface an external data source with Excel using a winsock and a database control.

Under the current circumstances I am able to send only 1 column of data to Excel.

If possible please modify my code to allow for 2 or more columns of data.
If not then please give an alternate solution.

(As will you will see when you look at my code, I am in no way an expert so please explain whatever you do, Thanks)

Here it is
----------------------------------------

Dim ncount As Integer

Private Sub cmdconnect_Click()
sckdvt.Connect
End Sub

Private Sub Cmddisconnect_Click()
sckdvt.Close
End Sub

Private Sub Cmdend_Click()
Unload Me
End Sub

Private Sub CmdIP_Click()
sckdvt.Close
sckdvt.RemoteHost = Txtip.Text
LblIP.Visible = False
Txtip.Visible = False
CmdIP.Visible = False
cmdconnect.SetFocus
Beep
MsgBox ("You must now reconnect")
End Sub

Private Sub Cmdport_Click()
sckdvt.Close
sckdvt.RemotePort = Txtport.Text
Lblport.Visible = False
Txtport.Visible = False
Cmdport.Visible = False
cmdconnect.SetFocus
Beep
MsgBox ("You must now reconnect")
End Sub

Private Sub Form_Load()
frmSplash.Show vbModal
Load Frmmain
Load frmAbout
End Sub

Private Sub mnuabout_Click()
frmAbout.Show vbModal
End Sub

Private Sub mnuExit_Click()
Unload Me
End Sub

Private Sub mnuIP_Click()
LblIP.Visible = True
Txtip.Visible = True
CmdIP.Visible = True
Txtip.SetFocus
End Sub

Private Sub mnuPort_Click()
Lblport.Visible = True
Txtport.Visible = True
Cmdport.Visible = True
Txtport.SetFocus
End Sub

Private Sub sckdvt_DataArrival(ByVal bytesTotal As Long)
Static ncount As Integer
Dim strdata As String
Dim dmeasurement As Double
ncount = ncount + 1
If ncount < 60 Then
    sckdvt.GetData strdata, vbString
    Txtdata.Text = strdata
    If Len(strdata) < 15 Then
        Dtacontrol.Recordset.AddNew
        dmeasurement = Val(strdata)
        Txtexcel.Text = dmeasurement
    Else
        sckdvt.GetData strdata, vbString
        Txtdata.Text = strdata
    End If
End If
End Sub