Dim dt As New DataTable dt.Columns.Add(New DataColumn("UserID")) dt.Columns.Add(New DataColumn("IPP")) Dim dr As DataRow = dt.NewRow dr.Item("UserID") = "324" dr.Item("IPP") = "210.74.232.26:3824" dt.Rows.Add(dr) MsgBox(dt.Rows(0).Item("IPP"))