strKelime = ""
If (rs("deniz") <> "") Then
strKelime = strKelime & " " & rs("deniz")
End If
If (rs("gol") <> "") Then
strKelime = strKelime & " " & rs("gol")
End If
If (rs("sehir") <> "") Then
strKelime = strKelime & " " & rs("sehir")
End If
If (rs("orman") <> "") Then
strKelime = strKelime & " " & rs("orman")
End If
If (rs("dag") <> "") Then
strKelime = strKelime & " " & rs("dag")
End If

strKelime = Trim(strKelime)
strKelime = Repalce(strKelime, " ", ", ", 1, -1, 1)


İstediğin olur gibi.