在Visual Basic （VB）中进行数据采集编程通常涉及以下步骤：
设计数据库架构
确定需要采集和管理的数据种类及其结构。
使用Microsoft Access或其他数据库管理软件设计数据库表、索引和关系。
创建数据库连接
使用ADO （ActiveX Data Objects）或其他数据访问技术从VB程序中连接到数据库。
编写代码以建立连接并执行SQL查询和数据插入操作。
设计数据输入界面
利用VB的窗体设计工具创建数据输入界面，包括标签、文本框、下拉列表等控件。
编写数据插入代码
编写VB代码，通过SQL INSERT语句将用户输入的数据插入到数据库中。
编写数据查询代码
使用SQL SELECT语句编写代码，根据特定条件查询数据库中的数据。
编写数据报表
使用VB的报表设计器创建数据报表，以便用户查看和分析数据。
对于从网站获取数据，可以使用以下VBA代码示例：
```vba
Sub WebDataScraper（）
' 声明变量
Dim ws As Worksheet
Dim ie As Object
Dim doc As Object
Dim elements As Object
Dim row As Long, col As Long
' 初始化
Set ws = ThisWorkbook.Sheets（"数据采集"）
Set ie = CreateObject（"InternetExplorer.Application"）
' 配置IE浏览器
With ie
.Visible = False
.Navigate "http://example.com/data" ' 替换为实际URL
' 等待页面加载
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
End With
' 获取页面文档对象
Set doc = ie.Document
' 清除现有数据
ws.UsedRange.Clear
row = 1
' 获取网页中的数据并插入到Excel中
' 这里需要添加具体的代码来解析网页并提取数据
' 示例代码省略了数据解析和插入的具体实现
End Sub
```
请注意，上述代码仅为示例，实际应用中需要根据具体网站的数据格式和结构进行相应的解析和提取。
对于实时数据采集，还可以使用MSComm通信控件或串口编程来实现。以下是一个使用MSComm控件进行串口数据采集的示例代码：
```vb
Dim Comm As Object
Dim InStr As String
Dim Data As String
Dim Port As String
Dim BaudRate As Integer
Dim DataBits As Integer
Dim StopBits As Integer
Dim Parity As Integer
' 初始化串口
Set Comm = CreateObject（"MSXML2.ServerXMLHTTP"）
Port = "COM1" ' 串口名称，根据实际情况修改
BaudRate = 9600 ' 波特率
DataBits = 8 ' 数据位
StopBits = 1 ' 停止位
Parity = 0 ' 奇偶校验
' 打开串口
Comm.Open "GET", "http://example.com/data", False ' 改为实时采集时，应使用True
' 设置串口参数
Comm.SetParam 1, Port, BaudRate, DataBits, StopBits, Parity
' 开始采集数据
Do While True
Data = Comm.responseText
' 处理数据
' 示例代码省略了数据处理的具体实现
Loop
' 关闭串口
Comm.Close
Set Comm = Nothing
```
请根据实际应用场景选择合适的数据采集方法，并参考相关文档和示例代码进行编程。