在VB中关闭数据库连接可以通过使用cn.Close()语句来实现，其中cn是代表数据库连接对象的变量名。下面是一个示例代码：
Imports System.Data.SqlClient
Public Class Form1
Dim cn As SqlConnection
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' 建立数据库连接
cn = New SqlConnection("Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password")
cn.Open()
' 其他数据库操作代码
' 关闭数据库连接
cn.Close()
End Sub
End Class
在上述示例中，在Form1加载时打开数据库连接，然后可以进行其他数据库操作，最后通过cn.Close()语句关闭数据库连接。
